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PRÓLOGO 


La escena se desarrolla en algún lugar en el campo, en verano... 
—¡Abuelo, no te duermas! No has acabado de contarme la historia del ordenador... 
— ¿Eh?... ah... sí... bueno, bueno... 


El abuelo bostezó y pensó en lo que iba a decir. Ya había anochecido y sólo se oía el 


canto de los grillos y el rechinar de la butaca. 


“Cuando mi hermano compró su primer ordenador personal, estaba compuesto de 
un lector de cintas, de algunos KB de memoria -no recuerdo exactamente cuántos- 
y de un teclado mecánico, cosa poco frecuente en aquella época. Pero, sobre todo, 
disponía de un lenguaje BASIC completo y de un manual que intentaba enseñar la 


programación paso a paso, 


Algunos años más tarde fui yo el que me compré un ordenador. Los modelos eran 
más potentes, pero volví a encontrar el lenguaje BASIC y la posibilidad de sacar el 


máximo rendimiento. 


En aquella época, las revistas hablaban de programación, la gente programaba e inter- 
cambiaba programas. Algunos copiaban programas que no habían creado y se les 
llamaba piratas... No, no, todos no tenían un parche negro en un ojo y un garfio en 


lugar de una mano. 
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Después llegó la época del IBM PC y poco a poco las cosas empezaron a cambiar. 
Al principio era una enorme caja gris, fea y ruidosa. Pero aumentó en potencia у 
mientras más potencia adquiría, menos posibilidad había de sacarle el máximo 


rendimiento. 


Gracias a un puñado de futuros millonarios teníamos pantallas más grandes, más 
colores, más sonido, más memoria, más capacidad de almacenamiento. Pero, al mismo 
tiempo, se chapuceaban los sistemas operativos, se despreciaban los principios ele- 
mentales de seguridad, se frenaban las aplicaciones, se bloqueaban los formatos de 


datos, se ocultaba y se mentía sobre el funcionamiento interno del conjunto. 


El usuario se convertía en un consumidor como cualquier otro. Campañas de publi- 
cidad gigantescas le conducían a comprar una especie de caja negra de la que segui- 
damente había que controlar al máximo la utilización. A pesar de todo, la gente con- 


tinuaba intercambiando y los piratas pirateando. 


En cuanto a los que realmente eran capaces de sacar el máximo rendimiento a los 





ordenadores, tenían que comprarlos y después encerrarlos tras las puertas de un 
campus o de una cláusula de no divulgación. Si no hacían esto, tenían que dejar de 


programar. 


Afortunadamente, las cosas no sucedieron exactamente como estaba previsto y gra- 
cias al nacimiento de Internet, y a la mezcla de talentos de numerosos programado- 
res, a menudo voluntarios, idealistas y pragmáticos al mismo tiempo, se impuso un 


movimiento de liberación y nació, entre otros, el sistema operativo GNU/Linux. 
Pero esto es otra historia, te la contaré mañana... 


La idea de desarrollar Gambas sobre Linux en casa vino principalmente como reac- 


ción a la obligación de utilizar Visual Basic sobre Windows en el trabajo. 


Cualquier usuario con un poco de idea, cualquier empresa, cualquier administra- 


ción, necesitan sacar el mayor rendimiento posible a su ordenador, es decir, hacer de 


él lo que quieran hacer sin tener las competencias necesarias requeridas por los len- 


guajes de programación, ni el tiempo para adquirirlas. 


Con un lenguaje incoherente, incompleto y repleto de fallos, Visual Basic ha res- 
pondido, a pesar de todo, a estas necesidades. Pero sus creadores, encerrados en su 
torre de marfil, lo han ido poco a poco abandonando. ¿Había quizás desprecio hacia 
esos usuarios que tenían la pretensión de sacar, como a ellos les pareciera, el máxi- 


mo rendimiento de su herramienta de trabajo? 


А pesar de que forma parte de la gran familia BASIC y que la interfaz de los progra- 
mas se dibuja con el ratón, Gambas no tiene ningún otro punto en común con Visual 
Basic y es totalmente incompatible con él. Sin embargo, mi prioridad es que pueda 
satisfacer la misma necesidad: conseguir de la manera más simple posible sacar el 
máximo rendimiento de todas las funciones del sistema operativo subyacente, 


GNU/Linux en este caso preciso. 


Gambas se inspira, sobre todo, en Java: se trata de un lenguaje orientado a objetos, 
procedural e interpretado. Pero su intérprete es mucho más rudimentario: no hay 
compilación just-in-time, no hay garbage collector. Sin embargo, he cuidado mucho 


su simplicidad, su coherencia, su fiabilidad y sus facultades de internacionalización. 


Gambas es extensible. Es posible escribir componentes que añaden al lenguaje cla- 
ses suplementarias. Estos componentes ofrecen, en general, el acceso a librerías espe- 


cíficas: QT, GTK+, SDL, OpenGL, y así sucesivamente... 


Gambas ofrece un entorno de desarrollo integrado, moderno, que está, él mismo, 
escrito en Gambas. Es ése principalmente el que me permite probar el lenguaje :-). 


Además, es totalmente posible prescindir de él. 


Finalmente, y nunca insistiré lo suficiente, Gambas no es un lenguaje creado por 
programadores profesionales para programadores no profesionales. Yo soy su pri- 
mer usuario y otra de las razones que me ha llevado a crearlo es que todavía no deseo 


aprender en serio Perl o Python :-) 
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La primera versión estable de Gambas salió el 1 de enero de 2005, pero las cosas se 
pondrán realmente interesantes con la segunda versión. En el momento en el que 
escribo estas líneas, la versión de desarrollo ofrece la posibilidad de escribir compo- 
nentes directamente en Gambas, sin necesidad de dominar С о C++. Más tarde, esta 
posibilidad permitirá al entorno de desarrollo diseñar algo más que formularios grá- 


ficos: tablas, hojas HTML, etc. 


Es difícil prever de manera precisa cuándo saldrá esta segunda versión, e incluso, 
más en general, cómo evolucionará Gambas en el futuro. El trabajo que queda por 


hacer es todavía enorme y las cosas dependen mucho de los usuarios. 


En cualquier caso, espero que tendréis tanto gusto en utilizarlo como yo lo he teni- 
do en crearlo y que participaréis en su evolución. Y si, como para otros, Gambas es 
el factor que os lleva a utilizar por fin el Software Libre, espero que sentiréis como 


yo el respiro que produce esta libertad. 


Martes, 16 de agosto de 2005. 


— BENOÎT, 


ÍNDICE 


CAPITULO I: ¿QUE ES GAMBAS? ....... ANDEAN za 
навоб 1 | El lenguaje BASIC: su historia .................... IB 
ganag le Un entorno libre ............. куры рел уйу ууна ЗАЙ кр 2! 
cobos 1. З Elementos de Gambas .................... кто 
among l 4 Cómo obtenerlo ............. e ON 
aooaa l 5 Compilación y dependencias ..................... 26 
cono 16 Familiarizarse соп el IDE ,........................ 27 
COco00o Є primer ЕЮ ocios is ШӨ 
poo0co Mejor con un ejemplo сгайсо........................ за 
HOOGE Un porco de magia ....». + шжде AAA + ЖЩ 
copan |, 7 Sistema de componentes ............. AAA 
CAPITULO 2: PROGRAMACIÓN BÁSICA .................... al 
cba е. | Organización de un proyecto de Gambas ....... 42 
00000 Declaración de variables ................ varia 
пипгпп  Subrutinas y funciones ...........<<......» RAS 45 
Indice 





К Programación visual con Sofiware Libre 





asma 2.2 Tipos de datos ...... A EAT Rc _ 
00000 Conversión бЕНров...................‹++......ж,++ 50 
0000 IS rro cars ans rr ERA 52 
поооо Operaciones !0ЧЇСа5....................<+++++++58+. 56 
nasa 2.4 Manejo de сайєпаз<............................... 5 
jamaa 2,5 Control de flujo ......... AR Y У" ....60 
bond Ж. THEN. ELSE ,............::: AAA И 60 
попоп Select ........ TADEO AA тис 62 
a ASAS IIA 63 
coooo WHILE y REPEAT .......... NARRA 64 
(0000 Depuración an el ЮЕ de балаа ыа ек r.. 66 
ан 26 Entrada y salida de ficheros ................. ... 68 
зв 2,7 Control de errores ............... TÍ 72 

2.8 Programación orientada a objetos 
A SR aa aE жасасак жааз „тз 
2.9 індик lin аб... ане 79 
CAPITULO З: LA INTERFAZ GRÁFICA ....................... 8I 


00000 
00d 


00031 
occ 0o 
00000 
00000 
00000 


c00Tca 





ш пш З.З Galeri ү 2. 
posada Controles básicos ..............oc.oooooomoom....... Әб 


пп Otros controles básicos misceláneos ............ ... 99 


пппгпп Listas de баіоѕ ................ ACARREAR IDO 
gu Otros controles avanzados ......................... IOI 
З.А IO co ceremonia RAR IOI 
gooo Lacasa Ме<=саде..................з.&.+.. а.а... IOI 
padaa ta case Dialog ...................... a КЫЙ 
obooo Diálogos personalizados ........................... 106 
вашеш З.5 MENÚS ........................ РЕР dar 
capo 3.6 Alineación de los controles ...................... 114 
poooao Propiedades de la alineación ............... PENES e... 14 
Cocoa Controles con alineación predefinida .................1M17 
cocoa. Diseño de una aplicación que aprovecha 
ППППП ESE PECUPSO ..,...«occcccco o... ATA AAA AAA 17 
cora 3.7 Introducción al dibujo de privas EONAR 20 
CAPÍTULO 4: GESTIÓN DE PROCESOS .....................1ә5 
пикш 4,1 La ayuda ofrecida por otros programas ........l25 
copas 4.2 Gestión potente de procesos .................... 126 
йш иш 4,2 CAEL iii als 127 
gogga Palabra clave WAIT ....................... ‚эзе жагас: ж. EE 
поооо El descriptor del proceso ................. os . 130 
Goo Redirección con TO еса неге: ВЭ) 
0000 Matar Un ргосево...................»+.+5»5.<5 ao 4 
сп  Redirección de la salida estandar 
de EPPOPES .............. жж ти кселл A а/ө жек КОШИ 
505000  Redirección de la salida estándar ...................139 
1009050 Evento КІШ) y la propiedad Value ....... CERE NRH ...а2 
зт Redirección de la entrada estándar, 
Є uso de CLOSE аена нега 146 
00000 los deals sala dl elit Pri Aa 
paar 44 SHELL cria a (EAT ү ...148 


Ind се 








nues 5. | Sistemas de bases de datos .................... ISl 





sanma 5.2 Bases de datos y Gambas ......................153 
cupos 5,3 Gambas-database-manager, 
el gestor gráfico ....... a AA ..-.154 
ппппп Crear una base «¿esoo rare AAN 154 
ппппп Crear ua tabla riores oro EIA . 158 
пп Gestionar datos de una їаЫа....................... 164 
пзи MM era AAA 165 
TITE UN Pé... көз сай МӨКҮ 5. 
попоп Modelo de bases de datos ......... A тане 167 
jooon Conectándose por código .......................... 168 
co0boo0da Consulta de datos ........... IRAN 171 
10000 ЮЮШОГГЕШЕЇГОӨШБ...........„..++594<ж.+ AE 174 
oooo0o Añadir registros .......... а анааан = 
poopoo Modificar registros .............. a S. 
3 5,5 Otras características ............................ 190 
опоапо Estructura de las tablas .................... ceo TO 
Coco. Más utilidades del Gestor de Bases 
dë Datos ................... ERA E E FEA 192 
CAPITULO OO. cocoa онно 195 
sana 6.1 Conceptos .................. ARA A A 195 
s8555 6.2 Creando un servidor ТСР .......................198 
¡mess 6.3 Un cliente ТСР ........... AA NN E . 205 
шов 6.4 Cintas y saralliaras kocaka өы исз rs 
‚ш 6.6 кылран dí Башга A A? «з 215 
6.7 Protocolo НТТР с саа AN 220 


CAPÍTULO 7: XML .............. ounan EA a 227 


sanan 7.1 Escritura con XmlWriter ............. A О) 
amase 7.2 Lectura con XmiReader ................. serere 238 
1000.0. Modelos de |єсїга................................. O 
ппппп Planteamiento inicial ............................... 136 
oodoo Un ejemplo ЧєЇ!єсїчга..............................@4О 
шшшюшш A RARA O +». ЛИЙ 
Gnid ¡COIE АШЫН” coria a, 
000005 Una plantilla de ejemplo ................... RATE се 
попоп Transformando el documento con Gambas ..........254 
пешае 7.4 Acerca de XMURPC .,.................... a] 255 
CAPITULO 8: HERENCIA .....................................257 
зване 8,1 Lenguajes orientados a objetos y herencia ..... 257 
monoa 8,2 Conceptos necesarios ....................... са ESE 
ПП ХАЕС РИМЕ. creer Kenr . 258 
бїгїлїп 1а dase hija. Palabra clave INHERITS ..... S E 262 
12003 Extendiendo funcionalidades. 
Palabra clave SUPER ............ A с, 
goron Modificando funcionalidades ....... ир -++ 185 
20000 Reemplazando métodos especiales: 
Niwy FrEE ¿ira MONA 269 
OOOO МКтЇЙасЮп=<.....................<.—. cercana Ь «ЇЙ ШӘ 
вав 8.3 Crear un nuevo control con Gambas ............ 273 
pooo Planteando !сбй!до............................... 273 
попио implementación básica ..... EEE 274 
8.4 Nuevos componentes con A ОТЕТИН ИЙ ОЙ 
лїп Preparación del código. Palabra clave EXPORT ..... ево 
ocio. Archivos necesarios, ubicaciones .............. .... 280 
пїїгүп т Probando el nuevo componente .................... 282 








Programación visual con Software Libre Š 


CAPITULO 9: ACCESO A LA АРІ ............................ 287 
sasan 9,1 Declarar una función externa ................... 288 
ооо с Сото denominar la librería ........... NA rir OBO 
cooooo  Eluso delos allas ................. AA г. AO 
попоп Tipos de datos ...... AAA AA EN 
sasan 9.2 Funciones auxiliares ............................. PI 
samma 9.3 Un ejemplo con libaspell ............. PRADA NOS 293 
smana 9,4 Obtener información acerca de la librería ....... 297 
nun na 9,5 НЕсШт©єп......................... ica НЕЕ 


APENDICE: Marcas registradas ......... ais ....301 


è © Es obvio que para los que hablamos 

el idioma español, la palabra gambas nos sugie- 

re algunas cosas, pero todas ellas bastante alejadas del 

mundo de los ordenadores en general y del entorno de la pro- 

eramación en particular, El autor original de Gambas, Benoit Minisini, 

no habla una palabra de nuestro idioma y su inocente ignorancia le condujo a 
nominar su obra con el acrónimo GAMBAS: Gambas almost means BASIC, es 
decir, Gambas casi quiere decir BASIC”, No es la primera vez que ип nombre о 
una marca bautizados en otros idiomas produce estos extraños cambalaches, recor- 
demos que Coca Соја!“ tuvo que cambiar su pronunciación en China porque la 
primera versión de su nombre significaba muerde el renacuajo de cera, o algunos 
todavía recordamos nuestra cara de asombro al ver los anuncios de un coche al 
que Suzuki dio en llamar Pajero. Tampoco está mal recordar que ya había antece- 


dentes de otros lenguajes de programación con nombre de animal, como Camel 
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o Python, aunque en esos casos el nombre estaba en inglés y en español no resul- 


taba tan chocante. 


En fin, como Benoit, que tiene los derechos de autor, no desea cambiar el nombre, 
nos tendremos que ir acostumbrando a que Gambas empiece a sonarnos a algo más 
que a buen marisco. De hecho, Gambas abre el entorno de la programación visual 
en Linux a todo el mundo, como lo hizo en su día Visual Basic'" en Windows. Pero 
como el tiempo no pasa en vano, Gambas intenta no reproducir los errores que se 
cometieron entonces. La ampliación del lenguaje BASIC alcanza con Gambas amplias 
cotas de potencia, profesionalidad y modernidad, sin abandonar nunca la sencillez 
y claridad de este lenguaje de programación de alto nivel. Ya nunca más se podrá 
decir que construir aplicaciones visuales para Linux es un proceso largo y comple- 


jo que lleva años de trabajo a gurús y maniáticos de la informática. 


Gambas no es sólo un lenguaje de programación, es también un entorno de progra- 
mación visual para desorrollar aplicaciones gráficas o de consola. Hace posible el 
desarrollo de aplicaciones complicadas muy rápidamente. El programador diseña las 
ventanas de forma gráfica, arrastra objetos desde la Caja de Herramientas y escri- 
be código en BASIC para cada objeto, Gambas está orientado a eventos, lo que sig- 
nifica que llamo automáticamente а los procedimientos cuando el usuario de la apli- 


cación elige un menú, hace clic con el ratón, mueve objetos en la pantalla, etc. 


s8882 ll El lenguaje BASIC: su historia 


El nombre BASIC corresponde a las siglas Begínner's All Purpose Symbolic Instruction 
Code (Código para principiantes de instrucciones simbólicas con cualquier pro- 
pósito ). El lenguaje fue desarrollado en 1964 en el Dartmouth College por los 
matemáticos John George Kemeny y Tom Kurtzas. Intentaban construir un len- 
guaje de programación fácil de aprender para sus estudiantes de licenciatura, Debía 


ser un paso intermedio antes de aprender otros más potentes de aquella 


época, como FORTRAN о ALGOL, Este último era el lenguaje más utilizado en 
aplicaciones de procesos de datos, mientras que FORTRAN era empleado en las 
aplicaciones científicas. Sin embargo, ambos eran difíciles de aprender, tenían 
gran cantidad de reglas en las estructuras de los programas y su sintaxis. El pri- 
mer programa hecho en BASIC se ejecutó a las 4 de la madrugada del 1 de mayo 
de 1964. Debido a su sencillez, BASIC se hizo inmediatamente muy popular y se 
empezó a usar tanto en aplicaciones científicas como comerciales. Tuvo el mismo 
impacto en los lenguajes de programación que la aparición del PC sobre los gran- 


des ordenadores. 


Cuando se desarrolló BASIC eran los tiempos en los que la informática estaba 
recluida en universidades y grandes empresas, con ordenadores del tamaño de una 
habitación. Pero pronto las cosas empezaron a cambiar. En 1971 Intel fabricaba el 
primer microprocesador. En 1975, la empresa MITS lanzó al mercado un kit de 
ordenador llamado Altair 8800 a un precio de 397 dólares. Era un ordenador bara- 
to, pero no para gente inexperta, había que saber electrónica para montarlo. Además 
tenía sólo 256 bytes (no es una errata, solo bytes, nada de Kbytes, megas o gigas) 
y se programaba en código máquina a base de 0 y 1, moviendo unos interrupto- 
res que tenía en el frontal. Dos jovencitos vieron un modelo en una revista de elec- 
trónica y decidieron montarlo. Le ofrecieron al dueño de MITS, además, hacer un 
intérprete de BASIC para los nuevos modelos de Altair. Eran William Gates y Paul 
Allen, y aquel BASIC, con un tamaño de 4 Kbytes, fue 
el primer producto que entregó una nueva empresa 
llamada Microsoft. Fue sólo el principio. A finales de 
los 70, Allen y Gates habían portado BASIC ya a un 
buen número de plataformas: Atari, Apple, Commo- 
dore... Y en 1981, cuando desarrollaron DOS para IBM 
y su nuevo PC, añadieron también su propio intér- 
prete de BASIC al sistema. En posteriores años siguie- 


ron otras versiones hechas por otras compañías como 





Borland, pero el declive de BASIC había empezado. 
Figura 1. Lanzamiento Las interfaces gráficas de ventanas que Apple popula- 


del Altair 8800. rizó y Microsoft adoptó con sucesivas versiones de 
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Windows™, se convirtieron en un estándar y BASIC no era un lenguaje prepara- 


do para estos entornos. 


Sin embargo, en marzo de 1988, un desarrollador de software llamado Alan Cooper! 
intentaba vender una aplicación que permitía personalizar fácilmente el entorno 
de ventanas usando el ratón. El programa se llamaba Tripod y en aquellas fechas 
consiguió que William Gates lo viera y le encargara el desarrollo de una nueva ver- 
sión a la que llamaron Ruby, y a la que añadieron un pequeño lenguaje de pro- 
gramación. Microsoft reemplazó ese lenguaje por su propia versión de BASIC, 
Quickbasic y el 20 de marzo de 1991 se lanzó al mercado con el nombre de Visual 
Basic. Al principio fue un verdadero fracaso de ventas, pero la versión 3 publica- 
da en el otoño de 1996 fue un éxito total, tanto que actualmente es el lenguaje de 
programación más usado. Visual Basic siguió evolucionando hasta la versión 6.0. 
En 2002 fue integrado en la plataforma .NET de desarrollo, en lo que para muchos 
de los seguidores ha supuesto el abandono de Microsoft, ya que ha cambiado buena 
parte de la sintaxis añadiéndole complejidad en contradicción con el espíritu y el 
nombre del lenguaje. En cualquier caso, a día de hoy se calcula que entre el 70% y 
80% de todas las aplicaciones desarrolladas en Windows se han hecho con alguna 


de las versiones de Visual Basic. 


Las causas del éxito de Visual Basic son numerosas, pero entre otras se puede seña- 
lar como obvia el uso del lenguaje BASIC que fue pensado para un aprendizaje fácil. 
Otro de los motivos es disponer de un entorno de desarrollo cómodo, que hace un 
juego de niños el diseño de la interfaz gráfica de cualquier aplicación, apartando al 
programador de perder tiempo en escribir el código necesario para crear ventanas, 
botones, etc., y dejándole centrarse únicamente en la solución al problema que cual- 
quier programa intenta resolver. Con la popularización de sistemas operativos libres 
como GNU/Linux, éstas y otras razones hacian prever que la aparición de un entor- 
no equivalente libre sería un éxito y contribuiría a la presentación de muchos nue- 
vos desarrollos que lo utilizarían. Ha habido varios intentos que по han cuajado, 
bien por la lentitud de su evolución, bien por su dificultad de uso o por no ser total- 
mente libres y no haber arrastrado a una comunidad de usuarios detrás. Finalmente, 


Benoit Minisini, un programador con experiencia en la escritura de compiladores 


que estaba harto de luchar contra los fallos de diseño de Visual Basic, y deseaba 
poder usar un entorno de GNU/Linux fácil en su distribución, comenzó a desa- 
rrollar su propio entorno para Linux basado en BASIC. El 28 de febrero de 2002 
puso en Internet la primera versión pública de Gambas: gambas 0.20. Benoit eli- 
minó del diseño del lenguaje bastantes de los problemas que Visual Basic tenía, 
como la gestión de errores, y le añadió características comunes en los lenguajes 
actuales más modernos, como la orientación a objetos y la propia estructura de los 
ргоргатаѕ2, Como prueba de fuego, el propio entorno de desarrollo fue progra- 
mado en Gambas desde la primera versión, sirviendo a un tiempo de demostración 
de la potencia del lenguaje y de detección de necesidades y corrección de errores 


que se fueron incorporando a las distintas versiones. 


En enero de 2005, Benoit publicó la versión 1.0, en la que ya se incorporaba un 
puñado de componentes desarrollados por otros programadores que colaboraron 
con él: Daniel Campos, Nigel Gerrard, Laurent Carlier, Rob Кија y Ahmad Kahmal. 
Esta versión se consideró suficientemente estable y cerró un ciclo, A partir de esa 
fecha empezó la programación de la versión 2.0. Ésta ya incluye algunas mejoras en 
el lenguaje, muchos más componentes y un nuevo modelo de objetos que permi- 
tirán usar Gambas en un futuro para el desarrollo de aplicaciones web con la misma 


filosofía y facilidad que actualmente se usa para aplicaciones de escritorio. 
. 2 Un entorno libre 
Gambas es un entorno de desarrollo que se distribuye con la licencia GPL GNU 
[General Public Licence?). Esto significa que se distribuye siempre con el código fuen- 
te y respeta las cuatro libertades que define la Free Software Foundation: 
* La libertad de usar el programa con cualquier propósito (libertad 0). 
* La libertad de estudiar cómo funciona el programa y adaptarlo a las propias 


necesidades (libertad 1). El acceso al código fuente es una condición previa 


para esto, 
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* La libertad de distribuir copias, con las que se puede ayudar al vecino (liber- 
tad 2). 


* La libertad de mejorar el programa y hacer públicas las mejoras a los demás, 
de modo que toda la comunidad se beneficie (libertad 3). El acceso al código 


fuente es un requisito previo para esto. 


Una de los engaños más comunes en el uso de Software Libre es la creencia de que 
este modelo de desarrollo obliga a que el trabajo se publique gratis, lo que es del todo 
incierto. Estas cuatro libertades permiten que, quien lo desee, venda copias de Gambas 
(entregando siempre el código fuente y respetando esas cuatro libertades) y, por 
supuesto, de cualquier aplicación desarrollada con este programa. Las aplicaciones 


desarrolladas con Gambas pueden o no acogerse a la licencia GPL. 


También cualquier programador es libre de alterar el propio lenguaje y modificarlo 
a su gusto, siempre y cuando entregue el código correspondiente a esas modifica- 


ciones y respete los derechos de autor de los desarrolladores originales. 


Aparte de estas libertades propias de la naturaleza de un proyecto de Software Libre 


sobre GNU/Linux, Gambas añade más facilidades para el programador: 


" Una ayuda muy completa del lenguaje у cada uno de los componentes, algo 
que es muy de agradecer para los que empiezan a programar en Gambas, y que 
no es habitual en los proyectos de Software Libre. La ayuda que se publica está 
en inglés, pero existe un grupo de personas trabajando en la traducción a espa- 
ñol*, Si todos nos animamos a colaborar” en la traducción, pronto estará com- 


pleta y disponible para el resto de usuarios. 


* Una API (Interfaz para programar la aplicación) sencilla y bien documenta- 
da, lo que facilita a los programadores crear nuevos componentes para Gambas. 
La API no es de utilidad inmediata para quien desarrolle con este lenguaje, 
pero permite a los programadores avanzados que lo deseen añadir funciona- 


lidades al entorno de desarrollo y crear nuevas herramientas para Gambas. 


El lenguaje está preparado рага ser independiente del gestor de ventanas que use, Esto 
significa que, sin cambiar una sola línea de código, una aplicación puede ser compi- 
lada para ser ejecutada en un escritorio Gnome o KDE, usando las librerías propias 
de ese escritorio y siendo una aplicación nativa de ese entorno. En el futuro se pue- 
den desarrollar componentes para Windows™, Fluxbox y otros gestores de venta- 
nas, y los programas no tendrán que modificar su código para que sean aplicaciones 
nativas de esos entornos. Marcando, antes de compilar, una opción en el entorno de 
desarrollo para elegir el componente a usar (actualmente se puede elegir entre gtk y 
qt, para Gnome o KDE), se generan distintas aplicaciones para distintos entornos con 
el mismo código fuente, Esta característica no se encuentra disponible en ningún otro 


lenguaje existente, lo que convierte a Gambas en un entorno único. 


3 Elementos de Gambas 


Para poder desarrollar y ejecutar programas hechos con Gambas, son necesarios dis- 


tintos elementos: 


* Un compilador, que se encargará de transformar todo el código fuente y archi- 
vos que formen parte de un proyecto hecho en Gambas, en un programa eje- 


cutable. 


* Un intérprete capaz de hacer que los programas hechos en Gambas sean eje- 


cutados por el sistema operativo. 


* Un entorno de desarrollo que facilite la programación y diseño de las interfa- 


ces gráficas de los programas. 


* Componentes que añaden funcionalidades al lenguaje. La palabra componen- 
te en Gambas tiene un significado específico, ya que no alude a partes genéri- 
cas, sino a librerías especificas que le dotan de más posibilidades. En la actua- 
lidad existen componentes para usar xml, conexiones de red, opengl, sdl, ODBC, 
distintas bases de datos, expresiones regulares, escritorios basados en gt, en gtk, 


1. ¿Qué es Gambas? 
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etc. Estos componentes son desarrollados por distintos programadores, siguien- 
do las directrices de la API de Gambas y la documentación publicada al efec- 


to por Benoit Minisini. 


1 4 Cómo obtenerlo 


Las nuevas versiones de Gambas se publican a través de la página web oficial del pro- 
yecto: http://gambas.sourceforge.net. En la actualidad existen dos ramas de Gambas: 
la rama estable o 1.0 y la rama de desarrollo o 1.9 que desembocará en la versión 2.0. 
De la rama estable sólo se publican nuevas versiones cuando es para corregir algún 


fallo que se haya descubierto. 


En el momento de escribir estas líneas, la versión estable era la 1.0.11 y no se prevé 
que haya cambios en el futuro. La versión de desarrollo está en continuo cambio, 
mejora y adición de nuevos componentes. Esto la hace muy atractiva, debido a la 
existencia de importantes funcionalidades que no están en la versión estable (como 
los componentes gtk y ODBC). Sin embargo, al ser una rama en desarrollo, es muy 
probable que tenga fallos no descubiertos y es seguro que sufrirá cambios en un futu- 
ro próximo. En este texto trataremos todas las novedades que la versión de desarro- 
llo contiene para que sea el usuario el que escoja con qué rama trabajar, Buena parte 
de las diferencias se encuentran en los nuevos componentes. Algunos de estos serán 
tratados en este texto, por lo que si el lector quiere trabajar con ellos deberá usar la 


rama de desarrollo. 


Las nuevas versiones se publican siempre en forma de código fuente, para que los 
usuarios que lo deseen compilen el código y obtengan todas las partes que Gambas 
tiene. Los autores de algunos de los componentes que se han hecho para Gambas, 
publican de forma separada en distintos sitios web las versiones nuevas de estos, pero 
todas se envían a Benoit Minisini y pasan a formar parte de la publicación comple- 
ta de este lenguaje de programación en la siguiente versión. De este modo, se puede 
decir que cuando Benoit hace pública una nueva, el paquete del código fuente con- 


tiene las últimas versiones de todo el conjunto en ese momento. 


Como la compilación de Gambas y todos los componentes asociados puede ser una 
tarea difícil para usuarios no expertos, es común que se creen paquetes binarios con 
la compilación ya hecha y listos para ser instalados en distintas distribuciones de 
gnu/Linux, En la misma página web donde se puede bajar el código fuente se encuen- 
tran los enlaces para la descarga de los paquetes compilados para estas distribucio- 
nes. Existen actualmente paquetes disponibles para Debian, Fedora, Mandriva, Gentoo, 
Slackware, QiLinux y Suse. En algunos casos, como para Fedora y Debian, están dis- 


ponibles tanto los paquetes de la versión estable como la de desarrollo. 


En el caso de Debian, los paquetes son realizados en gnuLinEx y, posteriormente, 
subidos a Debian para que estén disponibles y usables en esta distribución y en todas 
sus derivadas, como Knoppix, Guadalinex, Progeny, Xandros, Linspire, Skolelinux, 
etc. Por este motivo, las últimas versiones están siempre disponibles antes en los repo- 
sitorios de gnuLinEx hasta que son subidos y aprobados en Debian. Las líneas del 
archivo /etc/apt/sources. list de un sistema Debian para instalar la versión más actua- 


lizada de los paquetes de Gambas son: 
Para la versión estable: 
deb http://apt.linex.org/linex gambas/ 
Рага la versión de desarrollo6: 
deb http: //mw.linex.org/sources/linex/debian/ cl gambas 


А continuación, en cualquiera de los dos casos, para instalar todos los paquetes de 


Gambas, hay que ejecutar como usuario root: 


apt-get update 
apt-get install gambas 


Aunque el código fuente de Gambas se distribuye en un único archivo comprimido, 


la instalación desde paquetes compilados se hace con un buen puñado de archivos. 


¿Qué es Gambas? 
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La razón es que no todos son necesarios para ejecutar aplicaciones hechas en Gambas. 
En las distribuciones de Linux se ha seguido el criterio de separar en distintos paque- 
tes el entorno de desarrollo (paquete gambas-ide), el intérprete (paquete gambas-run- 
time), y se ha hecho un paquete separado para cada uno de los componentes. Si se 
quiere programar en Gambas son necesarios la mayoría de ellos, al menos los que el 
entorno de desarrollo necesita. Si se quiere ejecutar un programa hecho con este len- 
guaje, sólo es necesario gambas-runtime y un paquete por cada uno de los compo- 
nentes que el programa use. Por ejemplo, si es un programa que está hecho para el 
escritorio Gnome y no usa ningún otro componente, sólo sería necesario instalar en 


el sistema los paquetes gambas-runtime y gambas-gb-gtk, 


| 5 Compilación y dependencias 


Si en lugar de instalar paquetes ya compilados para la distribución de gnu/Linux 
deseamos compilar Gambas desde el código fuente, deberemos seguir los pasos habi- 
tuales en los sistemas GNU. Es decir, descomprimir el archivo con las fuentes y, desde 
el directorio que se crea al descomprimir y usando un terminal, ejecutar las siguien- 


tes Instrucciones: 


. configure 
make 
make install 


La última de ellas debemos hacerla como root, si queremos que el programa esté dis- 
ponible para todos los usuarios del ordenador. Si estamos habituados a compilar 
aplicaciones en sistemas GNU, disponemos ya de un compilador instalado y de bas- 
tantes librerías de desarrollo, Las instrucciones anteriores tratarán de compilar e ins- 
talar todos los componentes de Gambas, que son muchos. Si no tenemos las libre- 
rías correspondientes a alguno de ellos, simplemente no se compilarán y la instrucción 
«¿configure nos informará de ello, Es importante saber que el entorno de desarrollo 
está hecho sobre las librerías gráficas qt, por tanto, para poder usar el entorno nece- 


sitaremos tener instalado, al menos, estas librerías de desarrollo con una versión igual 


o superior а Іа 3.2. La versión del compilador gcc ha de ser también ésta, como míni- 
mo. Cada uno de los componentes tiene dependencias de sus propias librerías y 
dependerá de la distribución de Linux que usemos, para saber el nombre del paque- 


te que deberemos instalar antes de poder realizar la compilación. 


| 6 Familiarizarse con el IDE 


Aunque un programa en Gambas se podría hacer perfectamente usando un editor 
de texto plano cualquiera, sería un desperdicio no aprovechar uno de los mayores 
atractivos que el lenguaje tiene: su IDE o entorno de desarrollo, El IDE de Gambas 
ahorra al programador buena parte del trabajo más tedioso, le proporciona herra- 
mientas que hacen mucho más fácil su tarea, con utilidades de ayuda, de diseño de 
interfaces, autocompletado de instrucciones, traducción de programas, etc. En la 
imagen siguiente podemos ver algunas de las ventanas más importantes del entor- 


no, que se usan durante el desarrollo de una aplicación: 
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Figura 2. Entorno de desarrollo de Gambas. 








Cuando se arranca Gambas, lo primero que nos aparece es la ventana de bienvenida. 
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Figura 3. Ventana de bienvenida. 


Aquí se nos ofrece la opción de comenzar un nuevo proyecto o aplicación, abrir un 
proyecto del que tengamos sus archivos disponibles, abrir uno usado recientemen- 


te o uno de los numerosos ejemplos que están incluidos en la ayuda de Gambas. 


Antes de elegir cualquiera de estas opciones es necesario saber que todos los códi- 
gos fuente de una aplicación hecha en Gambas es lo que se denomina proyecto. El 
proyecto está formado por una serie de archivos que en Gambas están SIEMPRE 
situados dentro de un único directorio. En él puede haber, a gusto del desarrollador, 
distintos subdirectorios y organizar todo como se desee, pero cualquier gráfico, texto 
y código que forme parte de la aplicación estará dentro de él. Por ello, si elegimos en 
esta ventana la opción Nuevo proyecto..., el asistente siempre creará un nuevo direc- 
torio con el nombre del proyecto y ahí irá introduciendo todos los archivos necesa- 
rios para el desarrollo de la aplicación, Así, para enviar a alguien el código fuente de 
una aplicación hecha en Gambas o cambiarla de ordenador o disco, sólo hay que 
transportar el directorio con el nombre del proyecto, sin tener que preocuparse de 


otros archivos. Del mismo modo, si desde el entorno de desarrollo escogemos un 


archivo o un gráfico para integrarlo en nuestro trabajo, el archivo será copiado auto- 


máticamente al directorio del proyecto. 


oooo0 El primer ejemplo 

Una de las formas más habituales de empezar a trabajar con un lenguaje de progra- 
mación es haciendo un pequeño programa que muestre el mensaje Hola Mundo, 
Por tanto, empezaremos a conocer el entorno de desarrollo y el lenguaje de progra- 
mación con este típico ejemplo. Comenzaremos haciendo un hola mundo que sea 
puro BASIC, es decir, que sea igual al que hubieran hecho los autores de BASIC allá 
por el año 1964, 


En aquellos tiempos las interfaces gráficas no existían, por lo que este primer pro- 
grama será un programa feo, de terminal, En el BASIC original, hacer que aparezca 


un mensaje en el terminal es tan simple como escribir la línea: 
PRINT “Hola Mundo” 


No es necesario ningún encabezado previo, la instrucción PRINT sirve para mos- 
trar cualquier cadena de texto en el terminal, que en BASIC se presentan entre comi- 
llas dobles. De ahí que el programa sea tan simple como ese. Vamos a ver cómo hacer- 
lo con el entorno de desarrollo de GAMBAS: 


1. Escogemos la opción Nuevo proyecto... 
Скат таге proyecto адды en la ventana anterior (Figura 3). 
Aparecerá un asistente, en el que pulsa- 


mos Siguiente. Surgirá una nueva venta- 





na para elegir el tipo de aplicación. 
ap pii iaram аена па онн | Escogemos la tercera opción: Crear un 


proyecto de texto”. 


2 
| 
|" 
| 


| 
| 


2. Le damos ип nombre al proyecto, por 


ejemplo holamundo y un título, Pulsamos 





Figura 4. Asistente de Gambas. el botón Siguiente (Figura 4). 
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Elegimos el directorio del disco en 
el que queremos crearlo; pulsamos 
de nuevo el botón Siguiente y apa- 
recerá un resumen con los datos del 


proyecto (Figura 5). 


3. A continuación pulsamos el botón 
OK. Se abrirá el entorno de desarro- 


llo de Gambas listo para empezar a 





programar. Al ser una aplicación de 8 Figura 5. Datos del proyecto. 
terminal, que no lleva interfaz gráfi- 

ca, de momento, sólo necesitamos fijarnos en la 
ventana de la izquierda, que en nuestro caso ten- 
drá como título: Proyecto — holamundo (Figura 6). 


En realidad ésta es, probablemente, la ventana más 


importante para el manejo del entorno de desarrollo. 





A simple vista se puede ver el menú superior, que con- 
tiene las entradas necesarias para guardar y cargar pro- 
yectos, activar las distintas ventanas del IDE, manejar 


la ejecución de los programas, personalizar el entorno 





(en Herramientas | Preferencias | Otros | Mostrar mas- 
cota, podemos ocultar la animación de la gamba, que 


nos está mirando al abrir el proyecto), etc. 


De momento nos fijamos sólo en el árbol de directorios que contiene. Podemos ver 
que la raíz del árbol es el nombre del proyecto: holamundo, y de él cuelgan tres 
ramas: Clases y Módulos, que son para distintos tipos de archivos de código fuen- 
te; y Datos, cuyo nombre indica su finalidad, almacenar ahí los archivos de datos 


que la aplicación requiera. 


Desde el principio, Gambas nos da dos formas de realizar los programas, incluso si 


son tan simples como el que hemos hecho. Podemos elegir entre una programación 


orientada a objetos, paradigma típico de los lenguajes de programación más poten- 
tes о una programación estructurada simple. Según ello, el archivo que contenga el 
código de nuestro programa será una Clase o un Módulo. Por simplicidad, de momen- 
to vamos a usar un Módulo. Haciendo clic con el botón derecho del ratón sobre el 
árbol de carpetas aparecerá un menú contextual, Elegimos las opciones Nuevo | 
Módulo. Surgirá una ventana en la que escribimos el nombre del módulo, por ejem- 
plo miprograma, y pulsamos el botón OK, con lo que aparecerá nuestra primera ven- 
tana, con el titulo miprograma.module, donde poder escribir código. 


5 miprograma module 5:5 (Modificado) ЖБ Por fin podemos escribir nuestro código 


dolomita 


Gambas module file 





en BASIC. Lo haremos justo antes de la 











PUBLIC SUB Maini) linea donde pone END, tal y como queda 
PRINT “lola mimin" | 





reflejado en la figura де la izquierda. 








Cuando después de escribir el código que 





Figura 7. Ventana donde escribir el ya sabíamos, pulsamos la tecla INTRO, 


código. vemos que el entorno colorea el texto de 





una forma particular. Podemos pararnos 


un instante a ver los distintos colores que se muestran (Figura 7): 


“ En gris aparece una línea que comienza por una comilla simple (*). Esto indi- 
ca que la línea es un comentario, es decir, no se trata de ningún código de pro- 
gramación y el texto que sigue a la comilla no se ejecuta nunca, son comenta- 
rios que el programador puede/debería poner para facilitar que otros (o él 


mismo, pasado un tiempo) entiendan lo que el programa hace en ese punto. 
' En azul podemos ver palabras clave del lenguaje BASIC. 
* En color rosado aparece la cadena de texto. 
“A la izquierda vemos un resalte amarillo al comienzo de las líneas que han sido 


modificadas. Esto aparecerá siempre en las líneas que contengan modificacio- 


nes que no hayan sido compiladas, 





Bien, ya está listo el programa. Para comprobarlo se pulsa en el botón verde, con el 
simbolo del Play, que está en la pantalla del proyecto. Al hacerlo aparecerá una nueva 
ventana llamada Consola en la que se verá la salida de nuestro programa. En este caso 
será el simple texto Hola Mundo. Éste es todo el código necesario, ya se puede com- 
pilar el programa para generar un archivo ejecutable que funciona sin necesidad del 
entorno de desarrollo. Para ello, en el menú de la ventana del proyecto hay que esco- 
ger: Proyecto | Crear ejecutable. Saldrá un cuadro de diálogo para elegir el direc- 
torio en el que queremos crear el ejecutable. Pulsando OK lo generará. Al cerrar 
ahora el entorno de desarrollo de Gambas y abrir un terminal o pasar a una conso- 
la de Linux, podemos probar su funcionamiento. Para ello, en el directorio donde 


se haya creado el ejecutable, hacemos: 


joseta00-004:-$ са gambas /holamundo/ 
joseta00-004:-/gambas/holamundo$ ./holamundo.gambas 
Hola mundo 


| Mejor con un ejemplo grafico 
El ejemplo anterior mostraba una aplicación de consola, que nos recuerda a los vie- 
jos tiempos de otros sistemas operativos o a la forma de trabajar de los hackers infor- 
máticos. En realidad, hacer ese tipo de programas no demuestra el potencial de 
Gambas, puesto que son realmente simples e igualmente fáciles de realizar en otros 


lenguajes como Python o cualquier vieja versión de BASIC. 


Es mejor hacer el programa Hola Mundo para el entorno gráfico que inunda los 
escritorios de los ordenadores actuales. Para ello empezaremos igual que antes, 
arrancando Gambas y creando un Nuevo proyecto siguiendo exactamente los 
mismos pasos, excepto que en lugar de escoger Crear un proyecto de texto, cuan- 
do el asistente nos presente las distintas opciones, elegiremos Crear un proyecto 


gráfico. 


Para no repetir nombre, podemos denominar al proyecto holamundo2. Al acabar 
el proceso aparecerá de nuevo la ventana de proyecto, pero en esta ocasión tendrá 


una rama más en el árbol: Formularios. Un formulario es el área donde se diseña 


la interfaz gráfica de la aplicación, es decir, donde se insertan objetos como boto- 
nes, cuadros de texto, listas, casillas de verificación, etc. Los formularios se corres- 


ponderán con las ventanas que la aplicación mostrará. 


Haciendo clic con el botón derecho del ratón sobre el árbol del proyecto, elegimos 
ahora en el menú contextual que aparece: Nuevo | Formulario. Por simplicidad, en 
este caso ni siquiera hace falta cambiar el nombre, sólo pulsando en el botón OK 
aparecerá en pantalla la yentana del formulario y una ventana para escribir código 
BASIC casi idéntica a la del ejemplo anterior, sin nada escrito. El resultado será algo 


parecido a lo siguiente: 
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Figura 8. Pantalla del formulario. 


Haciendo clic sobre la palabra Form en la ventana de la derecha, correspondiente a 
la Caja de Herramientas, aparecerán distintos objetos que podemos colocar en los 
formularios. Entre estos está el icono del botón (se distingue rápidamente por tener 
la palabra OK escrito dentro). Haciendo un clic de ratón en él, se puede dibujar en el 
formulario un botón, tan sólo hay que arrastrarlo con el ratón y el botón izquierdo 
pulsado, para dar la forma que queramos. Gambas escribe el texto Button] sobre el 
ratón, pero como ese texto no es demasiado intuitivo lo mejor es cambiarlo. Para ello 
hay que pinchar en el botón y después, en la ventana de propiedades, hacer un clic en 


la línea donde pone Text. Ahora se puede escribir el nuevo texto, por ejemplo Púlsame. 
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También, pulsando en la propiedad Name le cambiamos el nombre al objeto botón, 
poniéndole, por ejemplo, btrMensaje. Siguiendo los mismos pasos dibujamos otro 
botón sobre el formulario, escribimos el texto Salir y el nombre btnSalir. Una vez que 
tenemos diseñada la intefaz gráfica con el formulario y los dos botones, pasamos a 
escribir el código BASIC correspondiente. Para ello, haciendo un doble clic con el 
ratón sobre el botón con el texto Púlsame, aparecerá la ventana de código con un texto 


ya escrito, al que añadiremos algo de forma que el código de ese botón quede así: 


PUBLIC SUB btnMensaje Click() 
Message.Info(“Hola Mundo”) 
END 


Haciendo doble clic sobre el botón Salir, escribimos el código que falta: 
PUBLIC SUB btnSalir Click() 


QUIT 





El resultado final debe ser algo como esto: 
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Figura 9. Resultado final de la programación de los dos botones. 








Con esto уа está el programa terminado. Igual que antes, pulsando en el botón verde 
de la ventana de proyecto el programa se ejecutará. Sin embargo, en este caso la eje- 
cución presenta novedades importantes: es un programa gráfico, tiene ya su venta- 
na con la barra superior y los típicos botones de maximizar y minimizar. Además, 
cuenta con dos botones y la aplicación está esperando a que el usuario haga clic en 


alguno de ellos para actuar. 


Hora de experimentar. Sería bueno, llegado este punto, que perdiéramos un poco de 
tiempo tocando las distintas propiedades de cada uno de los tres objetos que el pro- 
grama tiene: el formulario y los dos botones, parando el programa y volviendo a 


arrancarlo para ver el resultado de las modificaciones tantas veces como queramos. 


Aunque no es parte de este capítulo, hay un par de detalles que ya deberían empe- 


zar a observarse: 


· El código BASIC se escribe entre unas líneas que empiezan por PUBLIC SUB 
y acaban en END. 


* El texto que sigue a PUBLIC SUB lleva el nombre del objeto sobre el que se ha 
hecho un doble clic, seguido de la palabra Click, eso significa que el código se 


ejecutará cuando el usuario haga clic sobre el objeto. 


* Para que aparezca Message.Info, se escribe Message y se pulsa sobre esta pala- 
bra. Aparece un menú entre cuyas opciones se encuentra la palabra Info. 
Moviéndonos con los cursores del teclado y pulsando la tecla de espacio o 
INTRO sobre esa palabra, quedaba escrito en la ventana de código. Ese es el 
autocompletado, que nos ayuda a escribir el código evitando tener que memo- 


rizar sentencias y mensajes extraños. 


Un poco de magia 
El entorno de desarrollo de Gambas está hecho con el componente qt, y de forma 
predeterminada lo escoge para las aplicaciones gráficas. Por tanto, un programa 


gráfico hecho en Gambas usa, en principio, estas librerías y se puede considerar 





Programación visual con Software Libre 


una aplicación nativa para el escritorio KDE. Sin embargo, el componente gtk dis- 
ponible en la versión de desarrollo de Gambas, permite hacer programas enlaza- 


dos con las librerias de Gtk para realizar aplicaciones del escritorio Gnome. 


51 hemos instalado los paquetes de Gambas correspondientes a la rama de desarro- 
llo, incluyendo el paquete gambas-gb-gtk, podemos recuperar la aplicación hola- 
mundo2 del ejemplo anterior, ir a la ventana de Proyecto y hacer clic en el menú 
Proyecto | Propiedades, pestaña Componentes, y seleccionar gb.gtk. El resultado al 
ejecutar la aplicación es que se trata de una nueva, pero antes de KDE y ahora de 


Gnome. ¡Y sin tocar una sola línea de código! 


а т Y 
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Figura 10, Aplicación holamundo2 | Figura 11. Aplicación holamundo2 


en KDE. en Gnome. 


Hasta el día de hoy no existe ningún otro lenguaje de programación con el que se 


pueda hacer esto. 


naamal 7 Sistema de componentes 


A lo largo de los apartados anteriores han aparecido distintas referencias a los com- 
ponentes de Gambas, incluyendo su descripción en el tercer apartado de este capitu- 
lo. Estos permiten extender este lenguaje de programación. La interfaz desarrollada 
por Benoit para su programación hace que hayan sido varios los programadores que 
han colaborado con él, desarrollando nuevos componentes que se van añadiendo a las 


distintas versiones de Gambas en cada nueva publicación. En la versión 1.0 estable de 


Gambas sólo se podían desarrollar еп С y C++, pero desde la versión 1.9.4 de la rama 
de desarrollo también se pueden escribir componentes en Gambas, lo que abre nume- 


rosas posibilidades futuras ya que es mucho más sencillo hacerlo que en С. 


El listado de componentes disponibles es amplio y se aumenta continuamente en la 


versión de desarrollo. Para la rama estable están fijados los siguientes: 
* gb.compress: para compresión de archivos con protocolos zip y bzip2. 
* gb.qt: para objetos visuales de las librerías gráficas qt. 
* gb.qt.ext; para objetos visuales de las librerias gráficas qt que no son estándar, 
• gb.qt.editor: un editor de texto hecho usando las librerías gráficas qt. 
* £b.qt.kde: objetos visuales propios del escritorio KDE. 
* gb.qt.kde.html: un navegador web del escritorio KDE. 


" gb.net: objetos para conectar a servidores de red y a puertos serie de comuni- 


caciones. 
• gb.net.curl: objetos para construir servidores de red. 
* gb.db: objetos de conexión a bases de datos. 
* gb.db.mysql driver para conectar al servidor de bases de datos MySQL. 
* £b.db.posteresql: driver para conectar al servidor de bases de datos PostgreSQL. 
+ gb.db.sqlite: driver para usar bases de datos 5qlite 2.x. 


* gb.xml: objetos para parsear archivos XML, 
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‚ gb.vb: colección de funciones para facilitar la migración desde Visual Basic. 

“ gb.sdl: objetos para reproducir, mezclar y grabar archivos de sonido. 

* eb.pcre: objetos para usar expresiones regulares en el lenguaje. 
En la rama de desarrollo existen estos componentes (algunos de los cuales han sido 
muy mejorados y aumentados, como el gb.sdl) y otros más, con una lista en conti- 
nuo crecimiento. En el momento de escribir estas líneas podemos contar con: 


* gb.crypt: objetos para encriptación DES у MD5. 


* gb.form: objetos gráficos para formularios independientes de las librerías grá- 


ficas usadas. 


- gb.gtk: objetos gráficos para formularios de las librerías gtk. Tiene los mismos obje- 


tos que el componente gb, qt, pero enlazan con esta otra librería de desarrollo, 


" gb.db.odbc; driver para conectar a bases de datos a través de ODBC. 


• gb.info: objetos que proporcionan distinta información acerca de los compo- 


nentes y el sistema donde la aplicación se ejecuta. 


‹ gb.opengl: objetos para dibujos tridimensionales con aceleración OpenGL. 


* eb.oxmirpc: objetos para el uso del protocolo rpc-xml. 


• gb.sdl.image: objetos para dibujos en dos dimensiones con aceleración gráfica. 


« gb.vdl: objetos para capturar imágenes de cámaras de video en Linux. 


* 2b.gtk. pdf. se utiliza рага renderizar documentos pdf desde aplicaciones hechas 


en Gambas. 


El listado de componentes disponibles para el programador puede verse en la pesta- 
ña Componentes, accesible a través del menú Proyecto | Propiedades. Cada uno de 
los componentes se corresponde a un paquete compilado en la distribución, de forma 

que si se añade al proyecto, por ejemplo, el 
AAA componente 00.501, ha de instalarse el paque- 
еа П gambas-gb-sdl en los ordenadores donde 


| Componenta are атна у И se quiera ejecutar la aplicación compilada. 
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f Autras: Daniel Campet Farmindar 


[| contratas: Guerra, опасан serversocies, бепата A del componente, y un listado de los con- 
Soctel Udp+ocicet 


troles que están disponibles para el desa- 





ARRE rrollador si selecciona ese componente 


Figura 12. Componentes. (Figura 12). 


Los controles son clases para crear objetos útiles en la programa- 





ción. Los objetos creados pueden ser visuales (como pestañas, edi- 


tores de texto, etc.) u objetos de código (como servidores de red o 
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conexiones a bases de datos). Si el componente tiene objetos visua- 
les, estos se incorporan a alguna de las pestañas de la Caja de 


Herramientas del entorno de desarrollo. 
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En las imágenes anteriores podemos ver algunos de los objetos gráficos que están 


disponibles al seleccionar los distintos componentes. 


Cada componente tiene su propia documentación que se encuentra incluida en la 
ayuda de Gambas. En la rama estable esta documentación está siempre available; en 
la rama de desarrollo sólo está disponible si ha sido seleccionado para su uso en el 


proyecto. 


Todas las cosas que se pueden hacer con Gambas, y no son parte del propio lengua- 
je BASIC, se programan mediante el uso de componentes. Esto significa que, por 
ejemplo, para hacer una aplicación de bases de datos es necesario seleccionar el com- 
ponente gb.db o no estarán disponibles los objetos de conexión a bases de datos. Lo 
mismo ocurre con las conexiones de red, captura de video, etc. Estos objetos no son 


parte del lenguaje BASIC. 


NOTAS 

lhtp://www.cooper.com/alan/father_of_vb.html 

2 Diferencias entre Gambas y Visual Basic: 
http://wiki.gnulinex.org/gambas/210 

3 http://www.fsf.org/licensing/licenses/gpl.html. Hoy una traducción [no 
oficial] al español en hHtp://gugs.sindominio.net/licencias/ 

4 Documentación de Gambas en español: http://wiki.gnulinex.org/gambas/ 

5 Instrucciones para colaborar en la documentación en español: 
http: //wiki.gnulinex.org/gambas/ó 

é Si la instalación se hace desde un sistema gnuLinEx, no es necesario añadir esta linea 
puesto que la versión de desarrollo de Gambas es parte del repositorio oficial de 
gnulinEx. 

7 Debido о la mayor extensión de la cadena Crear un proyecto de texto en espo- 
ñol que en otros idiomas, es posible que ese mensaje aparezca cortado y no se vea 
completo. No hay que preocuparse por ello, no afecta para nada a su elección y 


suponemos que será corregido en posteriores versiones del IDE. 











e Еп el Capítulo 1 se vieron ya algu- 
nos detalles acerca de la programación con 
Gambas. 


Ahora, estudiaremos, principalmente, la sintaxis e instrucciones más 
importantes del lenguaje BASIC que usa Gambas. Buena parte de estas instruc- 
ciones existen en el BASIC estándar y algunas otras son extensiones propias de 


Gambas. 


Aunque sea más espartano, en este capitulo se usarán casi siempre ejemplos de códi- 
go de consola, como vimos en el apartado El primer ejemplo del Capítulo 1. 
Haciéndolo de este modo evitaremos las interferencias que puede suponer la expli- 
cación de conceptos relacionados con la programación gráfica y los componentes, 


Estos conceptos se explicarán con extensión en capitulos posteriores. 
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aes 2. | Organización de un proyecto de Gambas 


Antes de comenzar con la programación básica hay que resumir algunos conceptos 


previos: 


* El código fuente de los programas hechos en Gambas está compuesto de uno 
o más archivos que forman un proyecto. Este proyecto se archiva en un direc- 


torio del mismo nombre. 


* Los archivos de código pueden ser: Módulos (contienen código en BASIC que 
se ejecuta directamente), Clases (contienen el código en BASIC que ejecuta un 
objeto de esa clase) y Formularios (áreas donde se diseña la interfaz gráfica de 


la aplicación y que se corresponden con las ventanas del programa). 


* Los proyectos de texto sólo contienen Módulos y/o Clases. Las aplicaciones grá- 


ficas contienen Formularios y Clases, pero también pueden contener Módulos. 





* El proyecto puede contener otros archivos de datos, documentos, textos, etc., 


sin código BASIC para ser ejecutado por la aplicación, 


Los archivos que contienen código en BASIC (Módulos y Clases) siempre están estruc- 


turados de la siguiente manera: 


* Declaración de variables. 


* Subrutinas y Funciones. 


podoa Declaración de variables 

Los programas manejan datos continuamente. Estos datos pueden ser de muchos 
tipos: números, letras, textos, etc., y cambiar a lo largo de la ejecución del programa 
(en ese caso reciben el nombre de variables) o permanecer con un valor fijo duran- 
te todo el tiempo (entonces se denominan constantes). A los datos que usa un pro- 


grama se les asigna un nombre identificador. 


BASIC permitía usar variables y constantes sin haberlas declarado antes, es decir, 
sin haber expuesto al principio del programa un listado con las variables que se 


iban a usar. 


Eso produce programas ¡legibles en cuanto empiezan a ser de tamaño medio y es 
una fuente constante de errores. Para evitar esto, Gambas obliga a declarar las cons- 


tantes y las variables antes de utilizarlas. 


Hay dos lugares donde se pueden declarar las variables, dependiendo del ámbito en 
el que se vayan a usar. Si se declaran dentro de una subrutina o función (en el siguien- 
te apartado se verá con detalle qué son las subrutinas y funciones), están disponi- 
bles para ser usadas sólo dentro de esa subrutina o función. Si se declaran al princi- 
pio del archivo de código (sea un Módulo o una Case) están disponibles para todo 


el código de ese archivo, en todas sus subrutinas,. 
Para declarar una variable en una subrutina o función se emplea la sintaxis: 
DIM nombre variable AS tipo variable 


El tipo_variable hace referencia al tipo de dato de la variable: número entero, cade- 
na de texto, número decimal, etc, El nombre де la variable lo elige el programador 
libremente. Siempre es recomendable que sea algo que indique para qué se va a usar 
la variable. Es decir, se debe huir de nombres como a, b, c, etc., y usar, por ejemplo, 


edad, fecha_nacimiento, altura, etc. 


Las variables que se declaren en una subrutina o función sólo se usarán dentro de 
ellas. Cuando terminen se destruirán. Eso permite utilizar el mismo nombre de varia- 


ble dentro de distintas subrutinas y su valor nunca se confundirá o mezclará. 
Para declarar una variable al principio del Módulo o Clase usamos la sintaxis: 


[STATIC] (PUBLIC | PRIVATE) nombre variable AS 
tipo variable 
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Si se define la variable como PRIVATE, estará disponible dentro de todo el fichero, 
pero no será accesible desde otros ficheros del mismo proyecto, Si se la declara como 
PUBLIC, se podrá acceder a la variable desde un fichero del proyecto distinto a donde 


se declaró. 


La palabra STATIC se usa en los archivos de Clase, no en los Módulos. Sirve para defi- 
nirun comportamiento especial en todos los objetos de una misma clase. En pocas 
palabras se podría explicar con un ejemplo: si tenemos una clase perro, tendremos 
algunas variables como color, raza, peso, etc., y cada objeto perro tendrá su propio 


valor en cada una de esas variables. 


Al mismo tiempo, podemos declarar una variable que sea número_de_patas, de forma 
que si cambiamos su valor de 4 a 3, todos los objetos perros tendrán 3 patas y cada 
uno seguirá con su propio peso, color, etc. En este caso, la variable número_de_patas 
se declararía STATIC en el código BASIC del archivo de la clase perro. Se verá todo 


este comportamiento más adelante en este mismo capítulo. 


Las constantes se definen sólo al principio de un archivo de Módulo o Clase, no se 


pueden definir dentro de las subrutinas y funciones. La sintaxis es: 


( PUBLIC | PRIVATE ) CONST nombre constante AS 


tipo constante = valor 
Por tanto, al igual que las variables, pueden ser privadas o públicas. 
Veamos un ejemplo de todo esto: 


* Gambas module file 

* Archivo de Módulo con el nombre: ejemploVariables 
PRIVATE edad AS Date 

PRIVATE altura AS Single 

PRIVATE CONST Pi = 3.141592 

PUBLIC calidad AS Integer 


PUBLIC SUB Subrutinal() 
DIM num AS Integer 
DIM nombre AS String 
edad=30 
num = 54 


END 


PUBLIC SUB subrutina2() 
DIM num AS Integer 
DIM apellido AS String 


edad=32 
num = 4 
END 


En este ejemplo vernos que las variables edad y altura se pueden usar en todo el archi- 
vo. Por tanto, después de ejecutar la Subrutinal, edad valdrá 30 y, después de eje- 
cutar la Subrutina2 valdrá 32. Vemos también cómo la variable num está definida 
en las dos subrutinas. El valor de num desaparece al acabar cada una de las subru- 
tinas y, por tanto, durante Subrutinal valdrá 54 y durante Subrutina2 valdrá 4, pero 
después de que se ejecute el END de cada una de esas dos subrutinas, simplemente 
no existirá y si se hace referencia a num en cualquier otro punto del programa se 


producirá un error. 


Finalmente, vemos que la variable calidad está definida como pública, Esto signifi- 
ca que desde cualquier otro archivo del programa se puede hacer referencia a ella 
mediante el nombre ejemplo Variables.calidad, donde ejemploVariables es el nom- 


bre que se le ha dado al fichero donde se ha declarado calidad. 


2000500 Subrutinas y funciones 

Es impensable escribir todo el código de un programa sin una mínima organiza- 
ción. En BASIC el código se organiza dividiéndolo en procedimientos. Existen dos 
tipos de procedimientos: subrutinas y funciones. Una subrutina es un procedi- 


miento que ejecuta algo, pero no devuelve ningún valor. Ejemplos de subrutinas 
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serían procedimientos para dibujar algo en la pantalla, tocar un sonido, etc. Sin 
à embargo, una función es un procedimiento que devuelve siempre un valor al ter- 
minar su ejecución. Ejemplos de función serían el cálculo de una operación mate- 
mática que devuelve un resultado, el proceso para pedir datos al usuario de la apli- 


cación; etc. 


Ya hemos visto en el capítulo anterior la sintaxis para declarar las subrutinas, pues- 
to que se mostró cómo el entorno de desarrollo escribe automáticamente la subru- 
tina que el programa ejecuta al hacer un clic del ratón sobre un botón. La sintaxis 


completa es: 


(PUBLIC | PRIVATE) SUB nombre de la subrutina (pl As 
Tipo de Variable,p2 As Tipo de Variable, ...) 

... Código que ejecuta la subrutina 
END 





Las palabras PUBLIC y PRIVATE significan exactamente lo mismo que cuando se 
definen variables: determinan si la subrutina puede ser llamada sólo desde el archi- 
vo donde se ha codificado (PRIVATE) o desde cualquier archivo de la misma apli- 


cación (PUBLIC). 


Las variables pl, p2, etc., permiten pasarle parámetros a la subrutina, que se com- 
portarán dentro de ella como variables declaradas dentro de la propia subrutina. Es 
decir, desaparecerán al ejecutar el END final. Se pueden pasar tantos parámetros 


como se desee a una subrutina, declarándolos todos, por supuesto. 


Existen algunas subrutinas con nombres especiales en Gambas, por lo que el pro- 


eramador no debe usar esos nombres. Estas son las siguientes: 


* Main: existe en todas las aplicaciones de Gambas que sean de texto, no en las 
gráficas. Es el punto por el que empieza a ejecutarse el programa. Si no hubie- 
ra subrutina Main, Gambas daría un mensaje de error al intentar arrancar, 


puesto que no sabría por dónde comenzar. 


*_New y _free: se ejecutan, respectivamente, al crearse y destruirse un objeto. 


Sólo se encuentran en los archivos de clase, 


* Objeto_Evento: se ejecutan automáticamente cuando al Objeto le ocurre el 
Evento, Ya hemos visto algún ejemplo en el capítulo anterior, como 
btnSalir_Click(), que se ejecuta cuando el usuario de la aplicación hace clic con 
el ratón sobre el botón btnSalir. En las aplicaciones gráficas, el evento Open del 
formulario con el que se inicia la aplicación es la primera subrutina que el pro- 
grama ejecutará. En el último apartado de este capítulo se tratarán especifica- 


mente los eventos, su significado y utilidad. 


Veamos un programa de ejemplo (para probarlo, debemos crear un nuevo programa 


de texto siguiendo los pasos explicados en el Capítulo 1, apartado El primer ejemplo: 


PUBLIC SUB Main() 
pinta _media(4,8) 
END 
PUBLIC SUB pinta media(valorl AS Integer, valor2 as 
Integer) 
PRINT (valorl + valor2)/2 


AL 


Aunque éste es un programa poco útil, sirve para expresar con simplicidad la forma 
de funcionar de las subrutinas. Comienza ejecutando la subrutina Main, en ella sólo 
hay una llamada a ejecutar la subrutina pinta_media pasándole los números ente- 
ros 4 y 8 como parámetro. La subrutina pinta_media muestra en la consola el resul- 


tado de hacer la media entre los dos valores que han sido pasados como parámetros. 


La sintaxis para declarar una función es la siguiente: 


(PUBLIC | PRIVATE) FUNCTION nombre de la función 
(pl As Tipo de Variable,p2 As Tipo de Variable ...) 
As Tipo de Dato 
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„.. Código que ejecuta la función 
RETURN resultado de ejecutar la función 
. END 


La declaración es casi idéntica a la de la subrutina, añadiendo dos cosas mås: el tipo 
de dato que la función devuelve en la primera linea y la necesidad de usar la sen- 
tencia RETURN de BASIC para indicar el valor a devolver. 


Veamos otro ejemplo que produce el mismo resultado que el anterior, pero usando 


una función: 


PUBLIC SUB Main () 
DIM final AS Single 
final = calcula Media(4,8) 
PRINT final 

END 


PUBLIC FUNCTION calcula Suma33(valorl AS Integer, 
valor2 as Integer) AS Single 

RETURN (valorl + valor2)/2 
END 


En esta ocasión es la subrutina Main la que se encarga de pintar en la consola el resul- 
tado de la operación. Es muy importante destacar la diferencia entre la forma en que 
se llama a una subrutina y se llama a una función. En el ejemplo anterior vimos que 
para llamar a la subrutina sólo se escribía su nombre con sus parámetros entre parén- 
tesis. Sin embargo, ahora vemos que al llamar a la función se usa una asignación, 
final = calcula_Media(4,8). Esto debe hacerse siempre al llamar a una función: la 
asignación sirve para recoger el valor que se devuelve. Por motivos obvios, la varia- 
ble que recoge el valor que la función retorna debe declararse del mismo tipo de dato 
que el que devuelve la función. En el ejemplo anterior la función devuelve un dato 
tipo Single (un número real con decimales) y la variable final se ha declarado, por 


tanto, de tipo Single. 


о. 2 Tipos de datos 


Ya hemos visto a lo largo de los textos anteriores el uso de variables y cómo se 


declaran. 


Hasta el momento, sólo conocemos algunos tipos de datos. Revisemos ahora todos 


los que soporta Gambas: 


* Boolean: es un tipo de dato que suele ser el resultado de una comparación. Sólo 


acepta dos valores: False y True (Falso y Verdadero en español). 
* Byte: representa un número entero positivo entre O y 255. 
* Short: representa un número entero con valores posibles entre -32.768 y +32.767. 


* Integer: representa un número entero con valores posibles entre -2.147.483.648 
у +2,147.483.647. 


* Long: representa un número entero con valores posibles entre 
-9.223.372.036.854.775.808 y +9.223.372.036.854.775.807. 


Single: representa un número real, con decimales, con valores posibles entre 
-1,7014118+38 y +1,7014118E+38. 


* Float: representa un número real, con decimales, con valores posibles entre 
-8,98846567431105E+307 y +8,98846567431105E-+-307, 


Date: sirve para almacenar un valor de fecha y hora. Internamente, la fecha y 
hora se almacena en formato UTC, al devolver el dato se representa en el for- 


mato local, según la configuración del ordenador. 


* String: se usa para almacenar una cadena de texto. En BASIC las cadenas de 


texto se asignan mediante dobles comillas. 








* Variant: significa cualquier tipo de dato, es decir, puede almacenar un Integer, 
Single, String, etc, Se debe evitar su uso porque ocupa más memoria que los 


anteriores y los cálculos con Variant son mucho más lentos. 
• Object: representa cualquier objeto creado en Gambas. 


Será el programador el que elija el tipo de dato con el que debe ser declarada una 
variable, Siempre se ha de tender a usar los tipos de datos más pequeños, puesto que 
ocupan menos memoria y el microprocesador los maneja con más velocidad. Sin 
embargo, eso puede limitar las opciones de la aplicación, por lo que a menudo se 


opta por tipos mayores para no cerrar posibilidades. 


Por ejemplo, si se va a usar una variable para definir la edad de una persona, lo lógi- 
co es utilizar un dato de tipo byte (el valor máximo es 255). Sin embargo, si la edad 
a guardar es la de un árbol, es conveniente usar un tipo Short, ya que puede haber 


árboles con más de 255 años, pero no se conocen con más de 32,767. 


Conversión de tipos 
Gambas permite distintas conversiones entre tipos de datos. La forma de hacer la 
conversión puede ser implicita o explícita. Son conversiones implícitas cuando el 


propio intérprete de Gambas se encarga de gestionarlas. Por ejemplo: 


DIM resultado as Single 

DIM operandol as Single 

DIM operando2 as Integer 
operandol= 3.5 

operando2=2 

resultado = operandol * operando2 


En este caso, para poder realizar la multiplicación, el intérprete convierte, de forma 
transparente para el programador, el operando2 a un valor Single. Son conversio- 
nes explícitas las que debe hacer el programador al escribir el código para poder 


realizar operaciones, mezclar datos de distintos tipos, etc. 


Estas conversiones se hacen mediante unas funciones que están incluidas en el 
BASIC de Gambas. Evidentemente, la conversión se hará siempre que sea posi- 
ble, si no lo es, producirá un error. Éste es el listado de funciones de conversión 


existente: 


* CBool(expresión): convierte la expresión a un valor booleano, verdadero o falso. 
El resultado será falso si la expresión es falsa, el número 0, una cadena de texto 


vacía o un valor nulo, Será verdadero en los demás casos. Por ejemplo: 


– Devuelven False las siguientes operaciones: Cbool(*”), Cbool(0), 
Cbool (NULL). 


— Devuelven True las operaciones: Chool(1), Cbool("Gambas”). 


* CByte(expresión): convierte la expresión en un valor tipo Byte. Primero se con- 
vierte la expresión a un número binario de 4 bytes. 51 este número es mayor 
de 255, se corta recogiendo los 8 bits de menor peso. Por ejemplo, Cbyte(*17”) 
devuelve 17, pero Cbyte(100000) devuelve 160. El valor 160 es debido a que el 
número 100.000 en binario es 11000011010100000, sus 8 últimos bits son 
10100000, que pasado de binario a decimal da lugar a 160. Si no sabemos ope- 
rar con números binarios lo mejor que se puede hacer es evitar este tipo de 


conversiones que resultan en valores tan “sorprendentes”. 


* CShort(expresión), CIntlexpresión) o CInteger(expresión), y CLong(expresión ): 
convierten, respectivamente, la expresión en un número de tipo Short, Integer 
y Long. En el caso de CShort la conversión se realiza igual que para CByte, 
pudiendo producirse resultados extraños igualmente si la expresión resulta en 


un número mayor de 32.767. 


* CDate(expresión ): convierte la expresión en una fecha, pero hay que tener cui- 
dado porque no admite el formato de fecha local, sólo el formato inglés 
mes/dia/año horasiminutos:segundos. Es decir, CDate( “09/06/1972 01:45:12”) 
es el día 6 de septiembre de 1972, 
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* CSingle(expresión) o CSng(expresión) y CFoat(expresión) o Cflt(expresión): con- 
vierten, respectivamente, la expresión en un número del tipo Single y Float. La 


expresión debe usar el punto (.) y no la coma (,) como separador decimal, 


* CStr(expresión): convierte la expresión en una cadena de texto sin tener en 
cuenta la configuración local. Por tanto, Cstr(1.58) devuelve la cadena de texto 
1.58, independientemente de si la configuración local indica que el separador 
decimal es el punto o la coma, o CStr(CDate(*09/06/1972 01:45: 12”)) devuel- 
ve “09/06/1972 01:45:12”. 


" StrS(expresión): convierte la expresión en una cadena de texto, teniendo en 
cuenta la configuración local. Por tanto, Str$(1.58) devuelve la cadena de texto 
1,58, si la configuración local está en español. Del mismo modo, 
Str$(CDate( “09/06/1972 01:45:12” )) devuelve “06/09/1972 01:45:12” si la con- 
figuración local está en español, puesto que en este idioma la costumbre es 

| escribir las fechas en la forma dia/mes/año. 

• Val(expresión): convierte una cadena de texto en un tipo Boolean, Date o algu- 
no de los tipos numéricos, dependiendo del contenido de la expresión. Val 
es la función opuesta de Str$ y, por tanto, también tiene en cuenta la confi- 
guración local del ordenador en el que se ejecuta. Intenta convertir la expre- 
sión en un tipo Date, si no puede en un número con decimales, si tampoco 
puede en un número entero y si, finalmente, tampoco puede la convierte en 


un tipo Boolean. 


00005 Matrices 

En numerosas ocasiones, cuando se intenta resolver un problema mediante la pro- 
gramación, surge la necesidad de contar con la posibilidad de almacenar distintos 
datos en una misma variable, La solución más simple para este problema son las 
Matrices o Arrays. Se pueden definir matrices que contengan cualquier tipo de datos, 
pero con la condición de que todos los elementos de la matriz sean del mismo tipo. 
No hay más limite en la dimensión de la matriz que la memoria del ordenador y la 


capacidad del programador de operar con matrices de dimensiones grandes. 


La sintaxis para trabajar con matrices es la misma que para las variables, añadiendo 


entre corchetes las dimensiones de la matriz. Algunos ejemplos: 


DIM Notas[2, 3] AS Single 

DIM Едайеѕ [40] AS Integer 

PRIVATE Esto по hay quien lo maneje[4, 3, 2, 5, 6, 2] 
AS String 


Para acceder al valor de cada una de las celdas de la matriz, hay que referirse siem- 
pre a su índice. En una matriz de dos dimensiones lo podemos identificar fácilmente 


por filas y columnas. 


Hay que tener en cuenta que el índice comienza a contar en el 0, no en el 1. Es decir, 
en la matriz Listado[3] existirán los valores correspondientes a Listado[0], Listado[ 1] 
y Listado[2]. Si se intenta acceder a Listado[3] dará un error Out of Bounds, fuera del 


límite. Por ejemplo: 


Dim Alumos[4,10] AS String 

Dim columma AS Integer 

Dim fila AS Integer 

Columa= 2 

Fila= 6 

Alumo[Columa, Filaj]="Manolo Pérez Rodríguez" 


Hemos visto que hay que declarar estas matrices con las dimensiones máximas que 
van a tener, Eso supone que el intérprete de Gambas reserva la memoria necesa- 
ria para ellas al comenzar el uso del programa. Sin embargo, hay veces en que, por 
las características de la aplicación, se desconoce la dimensión que hará falta para 
la matriz. Para solventar esta posibilidad Gambas tiene predefinidas matrices uni- 
dimensionales dinámicas de todos los tipos de datos, excepto Boolean. Con estas 
matrices se trabaja de forma distinta a las anteriores, ya que hacen falta funciones 
para añadir nuevos elementos a la matriz, borrarlos o saber el número de elementos 


que tiene ésta. 
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Con este ejemplo veremos el uso y funciones más usuales al trabajar con matrices 


dinámicas: 


DIM nombres AS String[] 

* La siguiente instrucción inicializa nombres para 
poder usarlo. 

* Es un paso previo obligado: 

nombres = NEW Stringi] 

' Así podemos añadir valores a la matriz: 

nombres . Add (“Manolo”) 

nombres . Add (“Juan”) 

nombres . Add (“Antonio”) 

“Count devuelve el número de elementos de la matriz. 
“La siguiente instrucción pintará 3 en la consola 
PRINT nombres.Count 

“La siguiente instrucción borrará la fila de “Juan”: 
nombres . Remove (1) 

PRINT nombres.Count 'pintará 2 





PRINT nombres[1] '*pintará “Antonio” 

“La siguiente instrucción vaciará nombres: 
nombres .Clear 

PRINT nombres.Count “pintará 0 


saanu 2. З Operaciones matemáticas 


Cuando se trata de trabajar con números, Gambas tiene las operaciones habituales 


en casi todos los lenguajes de programación: 


“+, -, *y/ se usan, respectivamente, рага la suma, resta, multiplicación y divi- 


sión. 


-A es el operador de potencia, por ejemplo, 4 4 3 = 64, 


* Para la división hay dos operadores adicionales, | о DIV y MOD, que devuel- 
ven, respectivamente, la parte entera del resultado de la división y el resto. Es 
decir, 9 DIV2=4, 91 2= 4 y 9 MOD 4=1P. 


Aparte de estos operadores existen las siguientes funciones matemáticas para reali- 


zar cálculos más complejos: 
· Absínúmero): devuelve el valor absoluto de un número. 
: Decínúmero): decrementa un número. 
* Frac(número): devuelve la parte decimal de un número. 
* Incínúmero): incrementa un número. 
* Int(número): devuelve la parte entera de un número. 
* Max(númerol, número2, ...): devuelve el número mayor. 
* Min(númerol, número2, ...): devuelve el número menor. 


· Round(número, decimales): redondea un número con los decimales desea- 


dos. 
* Sen(número): devuelve el signo de un número. 


* Rnd([minimo], [máximo] ): devuelve un número aleatorio comprendido entre 
minimo y máximo. Si no se expresa ningún valor para mínimo y máximo, el 
número estará comprendido entre 0 y 1. Si sólo se expresa un valor, el núme- 
ro estará comprendido entre el 0 y ese valor. Muy importante: antes de usar 
Rnd es necesario ejecutar la instrucción Randomize que inicializa el generador 
de números aleatorios. Si no se hace, se obtendrá el mismo número en sucesi- 


vas ejecuciones de Ала. 
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Operaciones lógicas 
Para realizar operaciones entre variables de tipo Boolean o expresiones cuyo resul- 
tado sea Boolean, existen algunas instrucciones similares a las que podemos ver en 
casi todos los lenguajes de programación. Se trata AND, OR, NOT y XOR. 51 tene- 
mos conocimientos de lógica y números binarios, no nos resultará dificil identifi- 
carlas y saber su comportamiento al tratarse de las operaciones binarias más bási- 
cas. En caso contrario, será fácil usarlas y entender su funcionamiento con una simple 
traducción al español de las tres primeras: Y, O, NO, Es decir, sirven para unir con- 


diciones del tipo: color es verde y no es marrón, que se escribiria: 
Color="Verde” AND NOT Color="Marrón” 


El caso de XOR es más difícil de entender puesto que es una operación algo especial 
llamada OR exclusivo. El resultado de una operación XOR es verdadero cuando los 
dos operandos son distintos y, falso, cuando los dos operandos son iguales. En la 
práctica, esta operación se utiliza en cálculos con números binarios, en cuyo caso 


seguro que conocemos perfectamente su funcionamiento. 


2. 4 Manejo de cadenas 


Una de las tareas más habituales en los programas informáticos es el uso de cadenas 
de texto, tanto si se trata de aplicaciones de bases de datos, como para la simple salida 
de mensajes en pantalla. En Gambas se han implementado todas las funciones de cade- 
nas de texto del BASIC estándar más las que están presentes en Visual Basic. Antes de 
proceder a su listado, destacar que existe un “operador” de cadenas de texto que per- 


mite concatenarlas directamente, se trata del simbolo &. Veamos un ejemplo de su uso: 


Dim Nombre AS String 

Dim Apellidos AS String 

Nombre = “Manuel” 

Apellidos = “Álvarez Gómez" 
PRINT Apellidos £ ”, “ £ Nombre 


La salida en consola será: 


Álvarez Gómez, Manuel 


Veamos ahora el listado de las funciones disponibles para manejar cadenas de 


texto: 
· Asc(Cadena, [ Posición] ); devuelve el código ASCIT! del carácter que está en la 
posición indicada en la cadena dada. Si no se da la posición, devuelve el códi- 


go del primer carácter, 


* Сг: devuelve un carácter a partir de su código ASCII Esta función es útil 


para añadir caracteres especiales a una cadena de texto, por ejemplo: 


PRINT “Manuel” £ Chr$(10) £ “Antonio” 


insertará una tabulación entre los dos nombres, ya que еп la tabla ASCII el 





código 10 corresponde a un avance de línea (Line Feed). 

* InStr ( Cadena, Subcadena |, Inicio | ): busca la subcadena dentro de la cade- 
na y devuelve un número con la posición donde la encontró. 51 se da el valor 
Inicio, la búsqueda empezará en esa posición. Por ejemplo: 

PRINT Instr(“Gambas es basic”, “bas”, 5) 
devuelve un 11, mientras que: 
PRINT Instr(“Gambas es basic”, “bas”) 


devuelve un 4. 


* RinStr ( Cadena, Subcadena | , Inicio | ): funciona igual que InStr, sólo que 


empieza a buscar de derecha a izquierda en la cadena. 
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» Lcase$(Cadena): convierte una cadena a minúsculas, 
“+ Ucase$ (cadena): convierte una cadena a mayúsculas. 
. Left$(cadena,n): devuelve los primeros п caracteres de una cadena. 


| + Right$(cadena,n): devuelve los últimos п caracteres de una cadena. 





,1,]): devuelve una cadena que empieza en posición y 


mide п caracteres. Si no se especifica n, la cadena devuelta contendrá todos los 


caracteres a partir de posición. 


ampla zo) reemplaza, dentro de Cadena, cada vez 





que encuentra el texto patrón por el texto reemplazo. Por ejemplo: 


PRINT Replace$ (“LinEx es una distribución de Linux”, 


“Lin” А “gnu/Lin” ) 





pinta el texto: 
“Gnu/LinEx es una distribución de gnu/Linux” 


‚ Subst$(Patrón, reemplazo1 [, reemplazo2,...] ): sustituye en la cadena patrón los 


símbolos e*1, 22... por las cadenas reemplazol,  reemplazo2... Por ejemplo: 
PRINT Subst$(“El alumno £1 tiene &2 años”,”Manuel”,"8”) 
da como salida la cadena: 
“El alumno Manuel tiene 8 años”. 


Evidentemente, el potencial de esta instrucción se muestra cuando las cadenas de 


reemplazo son variables de tipo String. 


*Len (cadena): devuelve la longitud de una cadena. 


Y Lirims(cadena): elimina los espacios en blanco de la parte inicial de una 


cadena. 
* Rtrim$(cadena): elimina los espacios en blanco de la parte final de una cadena. 
«Trim$(cadena): elimina todos los espacios en blanco de una cadena. 
Бие devuelve una cadena que contiene n espacios en blanco. 


+ Strimg3(n, patrón): devuelve una cadena que contiene el patrón concatenado n 


Ус. 


Split Cadena |, Separadores , Escape , Ignorar_nulos]): devuelve una matriz 
de cadenas de texto. Las partes de esta matriz se obtienen al trocear la Cadena 
cada vez que se encuentra uno de los Separadores. Si no se especifica ninguno, 
el separador se considera la coma (,). Si en algún caso se quiere incluir el 
Separador en alguna de las cadenas separadas, habría que colocar el Escape mar- 


cando el principio y final de la parte en la que debe ignorarse el separador. 


* lgnorar_nulos es un valor True o False, e indica si se deben ignorar o no las 
cadenas que resulten vacías como consecuencia del troceado. Veamos un ejem- 


plo que explique mejor el funcionamiento: 


DIM texto as Stringi] 

DIM texto2 as String|[] 

texto = Split(“Había una vez un circo”, “ ~“) 
texto2 = Split(“Había una vez jun circoi”, “ “, “1”) 
PRINT texto[0] £ “,” € texto[1] £ “,” € texto[2] € “,” 
£ texto[3] 

PRINT texto2[0] £ ",” £ texto2[1] £ “,” £ texto2[2] 


mz 


& “,” € texto2[3] 
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devuelve: 


Había, una, vez, un 


Había,una,vez,un circo 


En el segundo caso se puede ver cómo, aunque el separador es el espacio en blan- 


co, no se ha separado el texto un circo al estar rodeado del carácter de escape. 


s 2. 5 Control de flujo 


Son muchas las ocasiones en que el flujo en que se ejecutan las instrucciones en un 


programa no es adecuado para resolver problemas. 


Todo el código BASIC que hemos visto hasta ahora ejecuta sus instrucciones de arri- 
ba abajo, según se las va encontrando. Sin embargo, con frecuencia, habrá que vol- 


ver atrás, repetir cosas, tomar decisiones, etc. Este tipo de acciones se denomina con- 





trol de flujo y el BASIC de Gambas proporciona un buen juego de sentencias para 


manejarlo. 
пппп ЕЁ... THEN... ELSE 
Es la sentencia más común para tomar una decisión: si se cumple una condición, enton- 
ces se ejecuta algo, en caso contrario, se ejecuta otra cosa. 
Su forma más básica es: 
IF Expresión THEN 
ENDIF 


O si lo que se ejecuta es una sola instrucción: 


IF Expresión THEN sentencia a ejecutar 


La sintaxis completa de la instrucción es: 
IF Expresión | { AND IF | OR IF ) Expresión ... ] THEN 


[ ELSE ТЕ Expresión [ { AND IF | OR IF ) Expresión ... ] 


Algunos ejemplos de uso: 


DIM Edad AS Integer 





IF Edad > 20 THEN 
PRINT “Adulto” 
ENDIF 
IF Edad > 20 THEN PRINT “Adulto” 
IF Edad < 2 AND Edad >0 THEN 
PRINT “Bebé” 
ELSE ТЕ Edad < 12 THEN 
PRINT “Niño” 
ELSE IF Edad < 18 THEN 
PRINT “Joven” 


PRINT “Adulto” 
ENDIF 


Dependiendo del valor que tuviera la variable Edad al llegar al primer ТЕ, se impri- 


mirá un resultado distinto. 
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Select 
En el caso anterior vimos que en ocasiones el flujo del programa necesita revisar 
varias condiciones sobre una misma variable, produciendo un IF dentro de otro (1F 
anidados). Esa estructura no es cómoda de leer ni produce un código limpio. Para 


estos casos existe la sentencia SELECT, que es mucho más apropiada. 5и sintaxis es: 


SELECT [ CASE ] Expresión 

[ CASE Expresión [ TO Expresión #2 ] [ , +... ] 
... ] 

[ CASE Expresión [ TO Expresión #2 ] [ , +... ] 
Pas ] 

[ { CASE ELSE | DEFAULT ) 

sam: ] 

END SELECT 


Veamos cómo se aplica al mismo ejemplo anterior de las edades: 


DIM Edad AS Integer 
SELECT CASE edad 
CASE O TO 2 

PRINT “Bebé” 
CASE 2 TO 12 

PRINT “Niño” 
CASE 18 

PRINT “Bingo, ya puedes votar” 
CASE 13 ТО 17 

PRINT “Joven” 
CASE ELSE 

PRINT “Adulto” 
END SELECT 


Se trata de un código mucho más fácil de leer que el anterior, 


FOR 
Cuando se hace necesario contar o realizar una acción un número determinado de 


veces, la sentencia FOR es la solución: 


FOR Variable = Expresión TO Expresión [ STEP Expresión ] 


NEXT 


El bucle incrementa la Variable de uno en uno, a no ser que se especifique un valor 
a STEP. Se pueden especificar valores negativos, de forma que se convertiría en una 


cuenta atrás. Por ejemplo: 


DIM n AS Integer 

FOR n = 10 TO 1 STEP -1 
PRINT n 

NEXT 


Si se quiere interrumpir un bucle en algún punto, se puede usar la sentencia BREAK: 


DIM п AS Integer 

FOR п = 10 TO 1 STEP -1 
IF n=3 THEN BREAK 
PRINT n 

NEXT 


El bucle acabaría cuando n valiera 3 y no se escribirían los últimos 3 números. También 


se dispone de la sentencia CONTINUE, que permite saltarse pasos en el bucle: 


DIM n AS Integer 

FOR n = 1 TO 4 
IF n=2 THEN CONTINUE 
PRINT n 

NEXT 








Se saltaría el 2 al escribir los valores de п. Existe una variante del bucle FOR que 
se usa al recorrer elementos de una colección, como una matriz. La sintaxis en este 


caso е5: 


FOR EACH Variable IN Expresión 


NEXT 


Pongamos un ejemplo usando las matrices dinámicas que ya hemos visto en este 


capitulo: 


DIM Matriz AS Strirq[] 
DIM Elemento AS String 


Matriz = NEW String[] 
Matriz.Add(“Azul”) 
Matriz.Add(“Rojo”) 
Matriz.Add (“Verde”) 


FOR EACH Elemento IN Matriz 
PRINT Elemento; 
NEXT 


Escribiría como salida: AzulRojo Verde. 


WHILE y REPEAT 
Cuando se quiere repetir la ejecución de una porción de código en varias ocasio- 
nes dependiendo de una condición, tenemos dos instrucciones distintas: WHILE y 
REPEAT. 


5и comportamiento es casi idéntico. La diferencia estriba en que si la condición nece- 
saria para que se ejecute el código es falsa desde el principio, con REPEAT se ejecu- 


tará una vez y con WHILE no se ejecutará nunca. La sintaxis de ambas es: 


WHILE Condición 
ss. instrucciones 


i 


.« «instrucciones 


UNTIL Condición 


En el caso del bucle WHILE existe una variante de la sintaxis consistente en susti- 
tuir WHILE por DO WHILE y WEND por LOOP. Es exactamente lo mismo; depen- 


de del programador elegir un formato u otro. Veamos un ejemplo: 


DIM a AS Integer 
a= 1 
WHILE a <= 10 
PRINT “Hola Mundo “; а 
INC a 


PRINT “Hola Mundo ”; a 
INC a 
UNTIL a > 10 


Este ejemplo producirá el mismo resultado en la ejecución del bucle WHILE que en 
el del REPEAT, en ambos casos escribirá diez veces “Hola Mundo * junto al valor de 
la variable a que se irá incrementando de l a 10, El uso de estas estructuras puede 
ser peligroso. Si durante la ejecución del bucle no hay forma de que la condición 
pase de ser verdadera a falsa, estaríamos ante un bucle infinito y el programa entra- 


ría en situación de bloqueo, 








Depuración en el IDE de Gambas 
Una vez escrito parte del código de un programa, lo usual es comprobar si funcio- 
na, pero lo habitual es que la mayor parte de las veces no lo haga en el primer inten- 
to. Tanto si se es un programador experimentado como si no, los fallos son parte de 
la rutina. Saber encontrarlos y corregirlos es lo que se denomina depuración, y es 
una de las tareas más importantes a realizar. Cuando son fallos de sintaxis, el entor- 
no de desarrollo suele darnos mensajes indicativos del problema, parando la ejecu- 


ción en la línea en que se produce. 


Cuando se adquiere una cierta soltura con el lenguaje, los fallos de sintaxis son cada 
vez menos comunes, pero los fallos en la lógica de la ejecución del programa se pro- 
ducirán siempre. Cuando esa lógica pasa, además, por instrucciones de control de 
flujo como las que hemos visto en este capítulo, la dificultad en encontrar los erro- 
res es mayor, puesto que la aplicación transcurre en distintas ocasiones por la misma 
porción de código y es posible que el fallo no se produzca la primera vez que se eje- 


cute ese código. 


Para facilitar esta tarea, el IDE de Gambas dispone de distintas herramientas de depu- 
ración. La primera de ellas es la posibilidad de fijar puntos de interrupción. Es decir, 
señalar sitios en los que el programa se 
parará para permitir ver el estado de las 
variables y en qué punto de la ejecución 


se encuentra. PUBLIC SUB btnRun_Click() 


DIM rDeta AS Result 


Para fijar un punto de interrupción en DIM hForm AS FRequest 


una línea de código, tan sólo hay que 


Doto = bhonn хес[тхЁЙ рд FA 
hForm = NEW FRequest{$hConn, rData) 
hForm. Show 


colocar el cursor del ratón en esa línea | 
y pulsar la tecla F9 o el botón con е] || А7" 


símbolo de la mano levantada, que está id” Je 


en la parte superior de la ventana de 





código. Las líneas en las que se fija un 
punto de interrupción tienen el fondo Figura 1. Punto de interrupción en la línea 


en rojo. de código. 








y Prayeeto” holamundo TN La misma operación que crea el punto la eli- 
AAA чүн Е 
A y БЭ К a] En a 





mina, es decir, pulsando F9 de nuevo el fondo 
rojo desaparecerá. La ejecución del progra- 


ma, como se explicó en el capítulo anterior, 





авз 
$-Módulos | | se arranca pulsando en el símbolo verde de 





Play de la ventana de Proyecto (o pulsando 
la tecla de función Е5). Junto al botón verde 
| AR -| ве encuentra un botón de Pausa, que permi- 

Figura 2, Ejecución del programa te parar la ejecución, y otro más de Stop que 


desde la ventana Proyecto. permite detenerla en cualquier momento. 


Si se quiere correr la aplicación ejecutando una a una las instrucciones para ir obser- 
vando por dónde transcurre el flujo del programa, se puede pulsar la tecla de fun- 
ción F8 o cualquiera de los dos botones que se encuentran a la derecha del símbolo 
de Stop. Haciendo esto, el entorno de desarrollo saltará a la primera línea que se deba 
correr e irá ejecutando línea a línea cada vez que pulsemos F8, o el icono que mues- 
tra la flecha entrando entre las llaves, mencionado anteriormente. El botón que está 
justo а la derecha del Stop y que muestra una flecha saltando por encima de las lla- 
ves, parece producir el mismo efecto (su tecla rápida es Mayúsculas + F8), pero no 
es así: el comportamiento cambia cuando el programa llegue a una llamada, a una 
subrutina o a una función. En este caso, este icono ejecutará la llamada y todo lo que 
tenga que hacer la función o subrutina en un solo paso, sin que veamos el flujo del 
programa por el procedimiento. Si hubiéramos pulsado F8 habríamos entrado en 
la subrutina y visto también paso a paso cómo se ejecutan las instrucciones. Por 
tanto, con estos dos botones podemos elegir cuando lleguemos a la llamada a un 
procedimiento, si queremos depurar también ese procedimiento o simplemente eje- 


cutarlo y pasar a la siguiente línea de código. 


Finalmente, cuando pausamos la ejecución del programa, aparecen tres nuevas pes- 
tañas en la parte inferior de la ventana de proyecto. En la pestaña Local se ven todas 
las variables del procedimiento que se está ejecutando y el valor que tienen en ese 
momento. En la pestaña Pila se ve el listado de llamadas entre procedimientos que se 


han producido hasta llegar a ese punto del programa. Así, podemos saber a través de 
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qué pasos se ha llegado a esa instruc- 
ción. Finalmente, en la pestaña Obser- 
var podemos introducir cualquier 
expresión en BASIC, incluyendo ope- 


raciones con las variables que el pro- 





grama tenga declaradas para ver cuál es | _ 
el resultado о el valor que tienen enel Ш Figura 3. Pestañas Local, Pila y Observar 


momento de la pausa. de la ventana Proyecto. 


2. 6 Entrada y salida: ficheros 


En este apartado veremos la forma más común de trabajar con ficheros en Gambas. 
Gambas trata los ficheros como un flujo de datos (la palabra exacta para esto es 
Stream), lo que tiene una implicación muy cómoda: todos los flujos de datos se tra- 
tan de igual manera, con lo que el código para manejar un fichero es igual al códi- 
go para manejar una conexión de red o un puerto de comunicaciones, puesto que 
todos son objetos de tipo Stream. Las operaciones tradicionales con un fichero son 


abrirlo, crearlo, escribir y leer datos. Veamos cómo se usan: 


Archivo = OPEN Nombre de Archivo FOR [ READ | INPUT ] 
[ WRITE | OUTPUT | [ CREATE | APPEND ] [ WATCH ] 


Abrimos un archivo con distintas finalidades: 


* READ o INPUT: para leer datos, en el primer caso no se usa buffer de datos, 


con INPUT si que hay un buffer intermedio. 


* WRITE o OUTPUT: para escribir datos, con WRITE no hay buffer de datos, 
con OUTPUT si se usa. 


· CREATE: si el fichero no existe se crea. Si no se usa esta palabra, el fichero debe 


existir antes de abrirlo o dará un error. 


· APPEND: los datos se añaden al final del fichero. 


* WATCH: si se especifica esta palabra, Gambas lanzará los eventos (que vere- 
mos más adelante) File_Read y File_Write en caso de que se pueda leer y escri- 


bir en el archivo. 


Ahora, cerremos un Archivo que ha sido abierto con la sentencia OPEN. 


CLOSE [ # ] Archivo 


Escribimos, convirtiendo en cadena de texto, la Expresión en el Archivo abierto ante- 


riormente. 
PRINT | fArchivo , ] Expresión ] 


Si по se especifica ningún archivo, tecleamos la expresión en la consola, como se ha 
visto en distintos ejemplos a lo largo de todo este capítulo. La instrucción PRINT 
admite un cierto control de cómo se colocan las expresiones, dependiendo de algu- 


nos signos de puntuación que se pueden colocar al final de la sentencia: 


* Si no hay nada después de la Expresión, se añade una nueva línea al final. Por 


tanto, la salida de la siguiente instrucción PRINT será en una línea nueva. 


* 51 hay un punto y coma detrás de la Expresión, la siguiente instrucción PRINT 
se escribirá justo detrás de la salida anterior, sin espacios, líneas o tabulacio- 


nes intermedias. 


"Si hay un punto y coma doble, se añade un espacio entre las expresiones, lo 
que permite concatenar expresiones en una misma línea usando distintas sen- 
tencias PRINT. 


' 51 ве utiliza una coma en lugar de un punto y coma, se añade una tabulación, 
con lo que también se pueden concatenar expresiones en una misma línea. 
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Seguidamente, escribimos, sin convertir en cadena de texto, la Expresión еп el Archivo 
abierto anteriormente. Es una instrucción que suele usarse en lugar de PRINT cuan- 


do los datos a escribir no son cadenas de texto, como en el caso de archivos binarios, 

WRITE [ fArchivo , ] Expresión [ , Longitud ] 
En cualquier caso, también puede usarse con cadenas de texto y permite indicar, con 
el parámetro Longitud, el número de caracteres que se desean sacar en cada opera- 
ción de escritura. Al contrario que con PRINT, no se pueden usar signos de pun- 
tuación para controlar la posición de la escritura. 

INPUT [ #Archivo , ] Variablel [ , Variable2 ... ] 
Leemos, desde un Archivo, un dato y asignamos su valor a Variable1, Variable2, etc. 
Los datos deben estar separados en el archivo por comas o en distintas líneas. Si no 
se especifica el Archivo, leemos los datos desde la consola, esperando que el usuario 
de la aplicación los introduzca. 

READ | fArchivo , ] Variable [ , Longitud] 
Se puede decir que es la instrucción opuesta a WRITE. Leemos del Archivo datos 
binarios y les asignamos su valor a la Variable. Si ésta es una cadena de texto, se puede 
fijar la Longitud de la cadena a leer. 


LINE INPUT | #Агсһіуо , ] Variable 


En una línea de texto entera del Archivo, le asignamos a la Variable. No se debe usar 


para leer de flujos binarios. 
Eof ( Archivo >) 


Devuelve True (verdadero) cuando se llega al final del Archivo y False (falso) en caso 


contrario. 


Lof ( Flujo ) 


Si el Flujo de datos es un archivo, devuelve su tamaño, Si en lugar de un archivo es 
un Socket de una conexión de red o un objeto Process, devuelve el número de bytes 
que pueden leerse de una sola vez. Una vez vistas las sentencias más comunes para 


el manejo de flujos de datos, veamos algunos ejemplos de uso: 


“ Leer datos de un puerto serie: 
' (Requiere seleccionar el componente gb.net en el ag 
proyecto) o 
DIM Archivo AS File 
Archivo = OPEN “/dev/ttyS0” FOR READ WRITE WATCH 
* El evento File Read se produce cuando haya datos ES 
que leer: | 
PUBLIC SUB File Read() 

DIM iByte AS Byte 

READ Archivo, iByte 

PRINT “Tengo un byte: “; iByte 
END 





'Lee el contenido del fichero /etc/passwd y lo —, 
muestra en la consola: =— 
DIM Archivo AS File 

DIM Linea AS String 

Archivo = OPEN “/etc/passwd” FOR INPUT 


WHILE NOT Eof (Archivo) 

LINE INPUT fArchivo, Linea 
WEND 
CLOSE Archivo 
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2, 7 Control de errores 


Es seguro que, en algún momento, en la mayor parte de los programas, bien por 
acciones del usuario del programa, bien por el propio flujo de la ejecución, se pro- 
ducen errores, como intentar borrar un fichero que no existe, hacer una división 
por cero, conectar a un servidor web que no responde, etc. En todos estos casos, 
Gambas muestra un mensaje en pantalla y, a continuación, el programa se rompe 
y deja de funcionar. Es evidente que ése es un comportamiento que el desarro- 
llador no desea y debe poner las medidas oportunas para evitarlo. La forma de 
hacerlo es implementando un control de errores para que la aplicación sepa lo 
que debe hacer en esos casos. Gambas implementa las instrucciones necesarias 
para capturar los errores y procesarlos según los deseos del programador. Las ins- 


trucciones para ello son: 


* TRY Sentencia: ejecuta la sentencia sin lanzar el error aunque se produzca, el 
programa continúa por la instrucción que haya después del TRY, tanto si hay 
error como si no. Se puede saber si existe error Consultando la sentencia ERROR 


que valdrá verdadero o falso. Por ejemplo: 


' Borrar el archivo aunque no exista 
TRY KILL “/tmp/prueba/” 
! Comprobar si ha tenido éxito 
IF ERROR THEN PRINT “No fue posible eliminar el archivo" 


* FINALLY: se coloca al final de un procedimiento. Las instrucciones que siguen 
a continuación se ejecutan siempre, tanto si ha habido un error en el procedi- 


miento como si no lo ha habido. 


* CATCH: se coloca al final de un procedimiento, Las instrucciones que siguen 
a continuación se ejecutan sólo si se ha producido un error en la ejecución del 
procedimiento (incluyendo si el error se ha producido en subrutinas o fun- 
ciones llamadas desde el mismo procedimiento). 51 existe una instrucción 
FINALLY, ha de colocarse delante de CATCH, 


Veamos un ejemplo de FINALLY y CATCH: 


* Mostrar un archivo en la consola 

SUB PrintFile(Nombre Archivo AS String) 
DIM Archivo AS File 

DIM Linea AS String 


OPEN Nombre Archivo FOR READ AS #Archivo 


WHILE NOT EOF(Archivo) 
LINE INPUT fArchivo, Linea 
PRINT Linea 

WEND 


FINALLY ' Siempre se ejecuta, incluso si hay error 
CLOSE # Archivo 


CATCH * бе ejecuta sólo si hay error 
PRINT “Imposible mostrar el archivo “; Nombre Archivo 
END 


2. 8 Programación orientada a objetos 
con Gambas 


BASIC es un lenguaje de programación estructurada. Esto significa que los progra- 
mas tienen el flujo que hemos visto hasta ahora: empiezan en un punto de una subru- 
tina y van ejecutando las instrucciones de arriba a abajo, con los saltos correspon- 
dientes a las llamadas a procedimientos y distintas funciones de control del flujo 


como bucles, condiciones, etc. 


Este tipo de programación permite resolver la mayor parte de los problemas y, de hecho, 


se ha estado usando durante muchos años. А día de hoy, se siguen desarrollando 





aplicaciones con lenguajes, como BASIC о С, de programación estructurada. Sin 
embargo, desde finales de los años 70 se ha venido trabajando también en otro para- 
digma de programación: la programación orientada a objetos. Los lenguajes que 
adoptan este paradigma, como Smalltalk, Java o C++, Intentan modelar la realidad. 
La ejecución de estos programas se basa en la interacción de los distintos objetos que 
definen el problema, tal y como ocurre en la vida normal, en la que los objetos, per- 
sonas y animales nos movemos, enviamos mensajes unos a otros y ejecutamos accio- 
nes. La programación orientada a objetos se usa cada día con más frecuencia por- 
que permite una mejor división de las tareas que un programa debe hacer, facilita la 
depuración y la colaboración entre distintos programadores en los proyectos que 
son de gran tamaño y, en muchos aspectos, tiene un potencial mucho mayor que la 


programación estructurada, 


Por todas estas razones, es común que se añadan características de programación 
orientada a objetos a lenguajes que, como BASIC, en un principio no la tenían. 
Gambas permite hacer programas estructurados a la vieja usanza, escribiendo el 
código en Módulos, como hemos visto. Y también posibilita la programación orien- 
tada a objetos mediante el uso de Clases. Es más, para la programación gráfica y el 
uso de la mayor parte de los componentes que se añaden al lenguaje, no hay más 


alternativa que el uso de objetos. 


Podemos ver cómo funciona todo esto en Gambas pensando en el caso de que tuvié- 
ramos que escribir un programa que simulara el comportamiento de un coche. 
Usando la programación orientada a objetos, definiríamos cada una de las partes del 
coche mediante un archivo de clase en el que escribiríamos el código BASIC nece- 
sario para definir las características de esa parte y la interfaz con la que se comuni- 
са con el mundo real. Por ejemplo, definiríamos cómo es un volante, cómo es una 
rueda, cómo es un asiento, un acelerador, un motor, etc. Después, y basándonos en 
esa definición, crearíamos cada uno de los objetos para crear el coche: un volante, 
cuatro ruedas, varios asientos, un motor, un acelerador, etc. Cada uno de esos obje- 
tos respondería a ciertos mensajes. Por ejemplo, el volante respondería a un giro 
actuando sobre el eje de las ruedas, el motor respondería incrementando sus revo- 


luciones si recibe una presión del acelerador, etc. 


Cada vez que creamos un objeto basándonos en el archivo de clase que lo ha defini- 
do, decimos que el objeto ha sido instanciado. Se pueden instanciar tantos objetos 
como se desee a partir de una clase y una vez creados tienen vida propia, son inde- 
pendientes unos de otros соп sus propias variables internas y respondiendo a las dis- 


tintas acciones según hayan sido definidos todos en la clase. 


Otra de las características de la programación orientada a objetos es la Herencia. 
Cuando un objeto hereda de otro objeto significa que es del mismo tipo, pero que 
puede tener características añadidas, Por ejemplo, supongamos que definimos la clase 
cuadro_de_texto con ciertas características como tamaño de texto, longitud, etc. А 
continuación, podemos crear objetos de esa clase y son cuadros_de_texto. Con Gambas 
podemos, además, crear una nueva clase, por ejemplo: cuadro_de_texto_multilinea 
que herede de cuadro_de_texto. Eso significaría que un cuadro_de_texto_multilinea 
es un cuadro_de_texto al que se le añaden más cosas. Todo el comportamiento y pro- 


piedades del cuadro_de_texto ya están codificados y по hay que volver a hacerlo. 


Veamos un ejemplo sencillo que aclare algunos conceptos, para lo que vamos a crear 
en el entorno de desarrollo un nuevo proyecto de programa de texto. А continua- 
ción, le añadimos un Módulo con un nombre cualquiera y dos archivos de clase, а 


uno lo llamamos SerVivo y a otro Hombre. 
Este es el código que debemos escribir en el archivo de clase SerVivo. els: 


' Gambas class file 

PRIVATE patas AS Integer 

PRIVATE nacimiento AS Integer 

PUBLIC SUB nacido( fecha AS Date) 
nacimiento = Year(fecha) 


END 


PUBLIC SUB PonePatas(numero AS Integer) 
Patas = numero 


END 
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PUBLIC FUNCTION edad() AS Integer 
RETURN Year(Now) - nacimiento 


PUBLIC FUNCTION dicePatas() AS Integer 
RETURN patas 


Éste es el código a escribir en el archivo de clase Hombre.cls: 


* Gambas class file 
INHERITS SerVivo 

PRIVATE Nombre AS String 
PRIVATE Apellido AS String 


PUBLIC SUB PoneNombre(cadena AS String) 
Nombre = cadena 


PUBLIC SUB PoneApellido(cadena AS String) 
Apellido = cadena 


PUBLIC FUNCTION NombreCompleto() AS String 
RETURN Nombre £ " “ £ Apellido 
END 


Y éste el código a escribir en el Módulo que hayamos creado: 


* Gambas module file 
PUBLIC SUB Маіп() 
DIM mono AS SerVivo 
DIM tipejo AS Hombre 


mono = МЕЙ SerVivo 
шопо.пас1ао(СрРа&е(“2/2/1992” у) 
mono. PonePatas (3) 

PRINT mono.edad() 


PRINT топо.дісеРа+аѕ () 


tipejo = NEW hombre 
tipejo.nacido(CDate("2/18/1969")) 
tipejo.PoneNombre (“Vicente”) 
tipejo.PoneApellido (“Pérez”) 
PRINT tipejo.edad() 

PRINT tipejo.NombreCompleto ( ) 

END 


Veamos los tres archivos, empezando con el de clase SerVivo.cls. Tiene un código 
muy simple: declara un par de variables, un par de subrutinas con las que se puede 
asignar el valor a esas variables y dos funciones con las que devuelve valores de algu- 


nos cálculos realizados sobre las variables y la fecha actual. 


El archivo Hombre.cls es muy similar, pero con una sentencia nueva: al inicio del 
fichero se ha colocado la instrucción INHERITS SerVivo. Al haber hecho eso esta- 
mos diciendo que todos los objetos que se instancien de la clase Hombre serán obje- 
tos 5SerVivo y, por tanto, tendrán también las mismas funciones que un SerVivo y 


podrán realizar las mismas operaciones. 


Si hubieran sido necesarias algunas labores de inicialización de los objetos al ser 
creados, se harian añadiendo al archivo de clase una subrutina con la sintaxis: 
PUBLIC SUB _New(). Todo el código que se escriba ahí se ejecutará cada vez que 


se cree un objeto. 


Y, finalmente, el módulo y su procedimiento Main. Ahi se declaran dos variables: 
mono y tipejo, pero en lugar de declararlos como uno de los tipos de datos que 


vimos en los primeros apartados de este capítulo, se declaran como objetos de la 
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clase SerVivo y Hombre. Por tanto, hablando con propiedad, mono y tipejo no son 
variables, sino objetos. Las clases corresponden a los nombres de los dos archivos 
de clase que hemos definido, Además, vemos que para crear un objeto de una clase 
es necesario usar siempre la palabra NEW, lo que provocará además que se ejecu- 
te el código de la subrutina _New del archivo de clase, si esta subrutina existiera, 
Una vez que el objeto ha sido creado, podemos acceder a sus subrutinas y funcio- 
nes escribiendo el nombre de un objeto y el procedimiento separados por un punto. 
Sólo podemos acceder a los procedimientos que hayan sido declarados en el archi- 
vo de clase como PUBLIC. 


Aparte del ahorro de código obvio que supone para la clase Hombre no tener que 
escribir las funciones que hace un SerVivo, hay algunas consecuencias más impor- 
tantes que se deducen de este ejemplo. Tal y como está escrito, se podría alterar el 
código de la clase SerVivo, modificando y cambiando variables, y el programa segui- 


ría funcionando igual, sin tener que tocar en absoluto la clase Hombre. 


Es decir, se puede, por ejemplo, mejorar el método para calcular la edad, teniendo 
en cuenta el día de nacimiento dentro del año. También se puede cambiar el nom- 
bre de las variables y no afecta a la clase Hombre y al resto del programa. Otra de las 
posibilidades que existe es el uso de los archivos de clase tal y como están en otro 
proyecto donde, del mismo modo, se necesiten seres vivos, reutilizando de forma 


sencilla el código ya escrito. 


Se han elaborado multitud de libros y artículos sobre la programación orientada a 
objetos. La pretensión de este apartado es únicamente servir de mera introducción 
general y explicar la sintaxis necesaria para su uso con Gambas. La mejor forma de 
aprender, disfrutar de ella y obtener todo su potencial es probando y viendo ejem- 


plos que la usen extensivamente, 


El código fuente del entorno de desarrollo de Gambas hace un uso muy amplio de 
clases y objetos, con lo que es una fuente completa de ejemplos. Está disponible den- 
tro del directorio apps/src/gambas2 del fichero comprimido que contiene los fuen- 


tes de Gambas, 


2. © Propiedades, Métodos y Eventos 


Los componentes que extienden las posibilidades de Gambas son de distintos tipos, 
pero todos ellos contienen clases que definen distintos objetos. En el caso de los com- 
ponentes que sirven para crear interfaces gráficas, estos objetos incorporan un icono 
a la Caja de Herramientas del entorno de desarrollo. No hay que crear este tipo de obje- 
tos escribiendo el código correspondiente y la palabra NEW, sino sólo dibujándolos 
sobre un formulario después de haber pulsado el botón con el icono respectivo. Es el 


entorno de desarrollo el que se encarga de escribir el código necesario para crearlos, 


Cualquiera de los objetos que se crean a partir de los componentes tienen ya un com- 
portamiento definido en su clase. Este comportamiento incluye la interfaz con la que 
los objetos se van a comunicar unos con otros en el programa, y lo necesario para 
que el programador pueda definirlos y hacerlos actuar a su conveniencia. Para faci- 
litar esas tareas, estos objetos disponen de Propiedades, Métodos y Eventos. Las pro- 
piedades permiten cambiar parámetros del objeto. En realidad, al darle un valor a 
una propiedad no estamos sino asignando valores a algunas variables del objeto que 
éste interpreta internamente para producir un efecto. Por ejemplo, podemos asig- 
narle a un formulario un valor numérico a la propiedad Background, y con ello le 
cambiaremos el color del fondo. Para modificar las propiedades disponemos de la 
ventana de Propiedades en el IDE (visible al pulsar F4 o desde el menú de la ven- 
tana de Proyecto: Vista | Propiedades), que nos permite hacerlo con una interfaz 
gráfica sencilla. También podemos cambiar una propiedad mediante código hacien- 
do referencia al nombre del objeto y a la propiedad, separados por un punto, Por 


ejemplo: Form1.Background=0, dejaría el fondo del formulario Form]1 en color negro. 


Los métodos son las funciones que el objeto puede realizar. Sólo pueden asignarse 
mediante código y cada objeto tiene su propia colección de métodos. Por ejemplo: 
btnSalir. Hide haría que el botón btnSalir se ocultara. Finalmente, los eventos son 
subrutinas que se ejecutan para indicar algo que le ha ocurrido al objeto. Un ejem- 
plo que ya vimos en el capítulo anterior es el evento Click del botón que se ejecuta 
cuando hacemos clic con el ratón. Los eventos son, en las aplicaciones gráficas, los 


que marcan el flujo del programa. De hecho, con frecuencia se dice que Gambas es 
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un lenguaje de programación orientado a eventos. Es el usuario de la aplicación al 
interaccionar, el que obliga al programa a ejecutar código respondiendo a sus accio- 
nes. Los objetos en Gambas avisan con los eventos cada vez que se produce una acción 
sobre ellos. Es el programador el encargado de escribir en las subrutinas que tratan 


los eventos el código necesario para responder a ellos. 


El entorno de desarrollo proporciona varias formas de conocer los métodos, even- 
tos y propiedades que un objeto puede entender. La primera y más obvia es usando 
la ayuda, donde se puede encontrar el listado de todas las clases de objetos disponi- 
bles, con todas las explicaciones y el listado completo de las propiedades. El editor 
de código también suministra información, puesto que al escribir el nombre de un 
objeto y pulsar un punto, aparece un menú contextual con el listado de las propie- 


dades (en color violeta) y métodos (en color verde) que el objeto tiene disponibles. 
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Para los objetos gráficos hay algunas ayudas 





más. El listado de propiedades disponible se 





puede ver en la ventana de Propiedades. 
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formulario. Aparecerá un menú donde, entre 


Area УШ 





otras, vernos la opción Evento. Podemos ele- 


gir el evento que queramos y, automática- 











mente, el entorno ya escribirá el código 


correspondiente al principio y al final del 





procedimiento. Figura 4. Evento Click. 


NOTAS 
! Los ordenadores sólo entienden de números, no de letras. Para poder usar caracte 
res se aplican toblas de conversión que asignan un número o código а cada carác: 
ter. La tabla de conversión usada normalmente se llama ASCII. 


En http://es.wikipedia.org/wiki/Ascii se puede ver la tabla completa. 
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Si bien Gambas, como cualquier otro lenguaje de pro- 
gramación bien diseñado, puede trabajar perfectamente desliga- 
do de toda libreria gráfica, creando programas de consola, uno de sus pun- 


tos fuertes es la sencillez para crear interfaces gráficas de usuario. 


En el mundo GNU/Linux ha existido, a lo largo de la historia, diversas librerias que 
facilitan la creación de dichas interfaces. Al nivel más bajo, el tradicional sistema 
X-Window tan sólo proporciona una API para mostrar ventanas, dibujar líneas, 
copiar mapas de bits y poco más. Sobre dicho sistema, una de las primeras libre- 
rías de apoyo que proporcionaba controles completos, tales como botones o eti- 
quetas, fue la Motif™, tradicional de sistemas UNIX". Su clon libre, Lesstit, pro- 


bablemente llegó demasiado tarde al escenario para tener un papel relevante. 











Las interfaces creadas con estas dos librerías han tenido siempre fama, además, de 
ser bastante feas o incómodas, especialmente a ojos de los usuarios de Windows™, 
y no hay que olvidar que de este sistema propietario proviene buena parte de los 


actuales usuarios de escritorio GNU/Linux. 


La compañía TrollTech*", por su parte, creo las librerías QT, para el desarrollo de 
aplicaciones gráficas con С++. Estas librerías, en principio, se distribuían bajo una 
licencia, la OPL, no totalmente compatible con el proyecto de la Free Software 
Foundation. 5и inclusión como base del proyecto de escritorio KDE generó un gran 
revuelo, y el rechazo de un sector de la comunidad hacia ambos proyectos (QT y 
KDE). En la actualidad, las librerias QT en su edición no comercial, se distribuyen 
bajo licencia GPL, lo cual implica que los programas desarrollados y compilados con 
ОТ como base, han de ser también Software Libre compatible con la GPL. Un pro- 
grama que no cumpla esta norma, habría de ser compilado sobre la versión comer- 


cial de QT, que la compañía antes citada vende y soporta. 


En parte como rechazo al tándem QT/KDE, y en parte para crear una alternativa al 
popular escritorio KDE, surgió el proyecto GNOME, que está basado en las libre- 
rías GTK+. 


GTK+ se desarrolló al principio como una librería gráfica escrita únicamente para el 
popular programa de dibujo The Gimp (de hecho, GTK significa Gimp Tool Kit). Pero 
más tarde se escindió de este proyecto para convertirse en una librería de propósito 
general, especialmente diseñada para desarrollos en lenguaje С. Hoy en día, todo el 
proyecto GTK+ está dividido en varios bloques y niveles: Glib, utilidades de carácter 
general sin relación con la interfaz gráfica: Gobject para dotar, de cierta orientación 
a objetos al lenguaje C; Atk, que es un kit de accesibilidad; Pango, para la gestión de 
fuentes; Gdk, para el dibujo de bajo nivel; y, finalmente, GTK, que proporciona los 
elementos de la interfaz gráfica habitual. La licencia de GTK+ es LGPL, por lo que ha 
sido utilizada, además de en muchos proyectos de Software Libre, en programas grá- 
ficos privativos que no desean contar con el soporte de la versión comercial de QT 
porque la han visto como una alternativa más cómoda en sus desarrollos, o han deci- 


dido reducir los costes al no tener que pagar por la librería gráfica. 


Al margen de estos pesos pesados, hay nombres como FOX, FLTK o WxWidgets, que 


también resuenan como alternativas para el desarrollo de programas gráficos. 


Por tanto, hay muchas alternativas (toolkits) para desarrollar interfaces, y al menos 
dos de ellas (QT y GTK+) sirven como base para los dos escritorios más comunes 
(KDE y GNOME), que a su vez aportan un aspecto y funcionalidades diferentes, No 
obstante, una aplicación KDE puede funcionar en un entorno GNOME y vicever- 


sa, a costa, quizá, de perder homogeneidad en el entorno, 


Gambas ha decidido ser neutral al respecto. Aporta una interfaz de alto nivel, senci- 
lla para el diseño y programación habituales, que no está ligada a los conceptos de 


QT, GTK+, nia ninguna otra librería gráfica subyacente. 


No obstante, a la hora de implementar dicha interfaz sí que es necesario emplear 
alguna librería de sustento por debajo, escrita en С о C++. Por tanto, existen dos 
componentes gráficos que proporcionan al programador libertad de elección: gb.qt 
y gb.gtk. Como se puede suponer por sus nombres, el primero utiliza código com- 
pilado con QT y el segundo código compilado con GTK+. 


La particularidad de Gambas es que el código escrito para gb.qt funcionará exacta- 
mente igual si reemplazamos este componente por gb.gtk y viceversa. Por lo tanto, 
el programador en cada momento puede elegir el que más se adapte a sus necesida- 


des por diversos motivos, por ejemplo: 


* Integración con KDE, GNOME o XFCE (este último, un escritorio ligero basa- 
do en GTK+). 


* Aspecto final. Algunos programadores y usuarios se sienten más a gusto con 


una aplicación QT, otros con GTK+. 
* Cuestiones de rendimiento, uso de recursos, 


* Licencia, costes en software comercial. 


Lo interfaz огото 
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• Necesidades especiales. GTK+ se puede compilar sobre DirectFB, un sistema 
gráfico alternativo a X-Window, ligero y apto para sistemas empotrados. Tal 
vez gb.qt se pueda compilar еп el futuro sobre Qtopia, la librería de TrollTech*" 


generalmente empleada en PDAs. 


005000 Partiendo de la consola 

Vamos a empezar por el camino dificil para comprender cómo la intertaz gráfica 
no es más que otro accesorio de Gambas, que al igual que el resto de componen- 
tes, aporta clases a partir de las cuales crearemos objetos, en este caso Controles o 
Widgets. 


Crearemos un proyecto de consola, (si, de consola), llamado Ventana. Añadiremos 


un módulo modMain y una referencia al componente gb.qt. 
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Figura 1. Proyecto Ventana, 


Escribiremos ahora el siguiente código: 


PUBLIC SUB Main() 


DIM Һіп AS Window 


hWin = NEW Window 
hWin.Show() 


Al ejecutarlo, aparece una ventana solitaria en la pantalla, que desaparecerá cuando 


pulsemos el botón Cerrar del gestor de ventanas. 


Las ventanas son contenedores de primer nivel. Un contenedor es un control que per- 
mite situar otros en su interior (botones, cuadros de texto, etc.). Y el adjetivo de pri- 
mer mivel se refiere a que no tiene un padre, es decir, que no cuelga de otro control 


de nuestra aplicación, sino directamente del escritorio. 


En este programa podemos ver varios efectos, a primera vista, extraños. El primero 
es que hemos declarado hWin como una variable local, así pues, parece que al fina- 
lizar la función Main el objeto debería destruirse. Esto no así ya que la ventana, al 
ser un control, mantiene una referencia interna (los objetos Gambas sólo se destru- 
yen si no existe una referencia en todo el programa). Dicha referencia podemos decir 
que se corresponde con la ventana que está dibujada en el servidor gráfico, con la 
intermediación de la libreria gráfica (en este caso ОТ). Por otra parte, el programa 


debería haber finalizado al terminar la función Main() y no ha sido así. 


El segundo efecto se debe a que tanto el componente gb.qt como el componente 
eb.gtk son llamados automáticamente tras el método Main() del programa, y queda 
en el lazo principal de la librería gráfica, esperando a que se produzcan eventos grá- 


ficos (por ejemplo, una pulsación del ratón sobre un control). 


En la práctica, para crear un programa gráfico indicaremos directamente en el asis- 
tente que deseamos crear un proyecto gráfico, de modo que el entorno de desarro- 
llo incluye уа, por defecto, el componente qb.qt, y nos permite crear un formulario 
de inicio, Un formulario de inicio es una clase de inicio que hereda las caracteristi- 
cas de la clase Form, que no necesita de un método Main en el programa porque el 
intérprete llama directamente al formulario para mostrarlo, y entra en el lazo de ges- 


tión de eventos. 


20000 El entorno de desarrollo 
Para crear un nuevo formulario nos situaremos en la ventana principal del IDE y, 


tras pulsar el botón derecho, elegiremos Nuevo | Formulario. 
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Figura 2. Pasos para crear un nuevo formulario. 


Ahora pasaremos a situar los 
diferentes controles, para lo 
cual los seleccionaremos de 
la Caja de herramientas y 
los posicionaremos sobre los 
formularios manteniendo el 
botón izquierdo pulsado, 
mientras le damos el tamaño 
deseado. El código se irá 
escribiendo en función de los 
eventos que generen los con- 


troles, por ejemplo, el evento 
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Figura 3. Controles disponibles en 
la Caja de herramientas. 


Click de los botones o los eventos de ratón y teclado de cada control, 


Al pulsar con doble clic sobre un control, se genera, automáticamente, el encabeza- 


do del código correspondiente al evento por defecto (el más característico) del con- 


trol seleccionado. 


Además, pulsando con el botón 
derecho se puede seleccionar la 


lista de eventos disponibles para 


un control. 
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Figura 4. Eventos del control Button]. 


3. 2 Manejo básico de los controles 


A pesar de que cada control ha sido diseñado para cumplir una función específica, 
comparten buena parte de su interfaz de programación, de modo que aprender a 
manejar un nuevo control sea tarea sencilla para un programador que ya ha traba- 


jado con otros controles. 


Los controles heredan métodos, propiedades y eventos de la clase Control, por lo que 


todas las características heredadas son aplicables a todos ellos. 


En cuanto a los contenedores, proceden de la clase Container (que a su vez procede 


de Control) e igualmente tienen muchas características comunes, 


Posicion y tamaño 
Todos los controles disponen de una serie de propiedades que permiten conocer y 


modificar su posición y tamaño dentro de su contenedor, o del escritorio en el caso 


de las ventanas: 


* Propiedades X e Y: son de lectura 
y escritura, y determinan la posi- 
ción del control, es decir, su punto 
superior izquierdo. En los contro- 
les comunes, la posición indicada 


es relativa a su contenedor, y en el 





Figura 5. Propiedades X e Y del control, caso de las ventanas es relativa a la 
esquina superior izquierda del 

escritorio. Los controles disponen de otras dos propiedades, Left y Top, que 
son sinónimas de X e Y, respectivamente. Usar una u otra se deja a la elec- 


ción del programador. 


* Propiedades W y Н: son de lectura y escritura, y determinan el ancho y alto 
del control, respectivamente. Dispone de dos propiedades sinónimas. Width y 


Height con el mismo significado. 
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* Propiedades ScreenX y ScreenY: son de sólo lectura, y permiten conocer la 
posición de cualquier control relativa al escritorio, en lugar de a su contene- 


dor padre. 


Los contenedores disponen, además, de las propiedades ClientX, ChentY, Chent Width 
y ClientHeight, que determinan, respectivamente, el inicio y la dimensión del área útil 
para contener controles hijo, Por ejemplo, el control TabStrip, que dispone de unas 
pestañas еп la parte superior, sitúa a sus hijos por debajo de ellas; y Scroll View, que 


puede mostrar barras de Scroll, ve su área útil reducida por dichas barras. 
Existen también una serie de métodos para modificar los controles: 


· Método Resize(W,H): con él podemos cambiar el tamaño de un control modi- 
ficando su alto y ancho de una sola vez, en lugar de hacerlo en dos pasos modifi- 
cando las propiedades W y H, lo que mejora el efecto gráfico de la redimen- 


sión ante el usuario. 





“ Método Move(X,Y): mueve de una sola vez el control a la posición indicada, 
en lugar de hacerlo en dos pasos. También dispone de dos parámetros adicio- 
nales, Move(X, Y, WH}, con los cuales además de mover el control se puede redi- 
mensionar, todo ello en un solo paso, generando una transición más suave ante 


el usuario, que si modificáramos las propiedades una por una, 


" Métodos MoveRelative y ResizeRelative: son similares a Move y Resize, res- 
pectivamente, pero en este caso las unidades no son pixeles, sino unidades rela- 
tivas al tamaño de la fuente por defecto del escritorio. Con esta capacidad, el 
aspecto del formulario será similar para usuarios que utilicen distintas confi- 
guraciones de fuentes (por ejemplo, grandes en un escritorio a 1024x768 o más 


pequeñas en un escritorio а 800х600), 


Las ventanas (controles Window y Form) disponen, por su parte, de varios eventos 
relacionados con la posición y tamaño. El evento Resize se genera cada vez que el 


usuario redimensiona una ventana, y Move cuando se mueve. 


Visibilidad 
Todo control puede encontrarse en uno de estos dos estados en un momento dado: 
Visible, que significa que aparece representado ante el usuario; e Invisible, que man- 


tiene todas sus propiedades, pero no aparece de cara al usuario, 
La propiedad Visible sirve para conocer el estado de visibilidad, en todo momento. 


Por ejemplo, los métodos Show() y Hidef) muestran y ocultan, respectivamente, el 


control. 


Con lo que respecta a las ventanas, disponen de dos eventos, Show y Hide, que se dis- 


paran cuando se muestran o dejan de estar visibles. 


Además, la apertura por primera vez de un formulario o ventana genera el eyento 


Open. 


Crear efectos de blinking, controles tales como etiquetas que aparecen y desaparecen 
para llamar la atención del usuario, puede ser útil en alguna ocasión especial, si se recla- 
ma atención por algún motivo crítico. Pero, en general, abusar de esta técnica molesta 


a los usuarios y se considera poco apropiada en una interfaz correctamente diseñada. 


Textos relacionados 
Todos los controles pueden tener diversas cadenas de texto, que muestran de una u 


otra forma. 


Para todos ellos, la propiedad Too! Tip se encarga de mantener un texto que apare- 
cerá como una pequeña ventana flotante, cuando el usuario sitúe el ratón por enci- 


ma del área ocupada con el control, 
De esta forma, se pueden dar pequeñas informaciones de guía para que el usuario 
conozca la función de dicho control dentro del programa. 


La intertaz arático 








Muchos controles disponen de un texto que muestran en su espacio principal, como 
es el caso de las etiquetas, las cajas de texto o los botones. Para todos estos contro- 


les, la propiedad Text es la que determina la cadena a mostrar. 


Puesto que Gambas trabaja con codificación UTF-8 para la interfaz gráfica, puede 
que sea necesario utilizar la función Conv$ para convertir desde otras codificacio- 
nes, a la hora de representar texto procedente, por ejemplo, de una base de datos o 


de un proceso en ejecución en segundo plano, 


Estos controles, por comodidad para programadores de otros entornos, tienen un 
sinónimo para esta propiedad, denominado Caption, salvo en el caso de las venta- 


nas cuyo sinónimo es Title, 


1 Colores 
Para cada control se definen dos colores: ForeGround, que es el color de primer plano 
en el que normalmente se mostrará el texto del control o parte de sus líneas y dibu- 


jos; y Background, que es el color de fondo. 


Por herencia de otros lenguajes de programación, disponen de dos sinónimos: 
BackColor y ЕогеСоіог. 


Los colores en Gambas son valores numéricos enteros, desde el 0 al hexadecimal 
FFFFFE, de forma que cada componente de color viene determinado por sus com- 


ponentes de rojo, verde y azul, 


La intensidad de cada uno de estos colores básicos varía entre el 0 (mínimo) y el 255 


(máximo). 


La gestión del color se realiza en Gambas a través de la clase Color, que dispone de 


varios métodos estáticos, así como de una serie de constantes. 


Las constantes de la clase Color determinan una serie de colores básicos, en su codi- 


ficación numérica: 


COLOR TONALIDAD NORMAL TONALIDAD OSCURA 
Negro Color.Black — 

Blanco Color. White — 

Azul Color.Blue Color.DarkBlue 
Cian Color.Cyan Color.DarkCyan 
Magenta color.Magenta Color.DarkMagenta 
Naranja color. Orange — 

Коза color. Pink — 

Rojo color.Red Color.DarkRed 
Violeta color. Violet — 

Amarillo color. Yellow Color. DarkYellow 
Gris Color.Gray — 

Verde Color.Green Color.DarkGreen 
Gris Cloro Color.LightGray — 


El método RGB recibe tres parámetros, las componentes de rojo, verde y azul, en este 
orden, con valores entre 0 y 255 para cada uno, y devuelve un número representan- 


do al color. 


El método HSV recibe tres parámetros, las componentes de tonalidad (0-360), satu- 
ración (0-255) y brillo (0-255), en este orden, y lo devuelve traducido a un color con 


su codificación numérica habitual. 

Existen también unas propiedades que determinan los colores del sistema. 

Por ejemplo, y dependiendo del tema que haya seleccionado el usuario, los cua- 
dros de texto pueden aparecer de color blanco con letra negra, o los formularios 


de color gris. 


Estas propiedades permiten conocer los colores actuales para los elementos de la 


interfaz gráfica: 
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Color de fondo general Color.Background 

Color de fondo de los botones Color.ButonBackground 
Color de primer plano de los botones Color.ButtonForeground 
Color de primer plano general Color. Foreground 

Color de fondo de un elemento seleccionado Color. SelectedBackground 
Color de primer plano de un elemento seleccionado Color.SelectedForeground 
Color del texto en cajas de texto Color. TextBackground 
Color de fondo en cajas de texto Color. TextForeground 


Es poco recomendable cambiar los colores de la interfaz por capricho o cuestiones de 
estética particulares del programador. Cada usuario elige el tema que más se adapta 
a sus gustos o necesidades visuales, y puede sentirse incómodo si le forzamos a usar 
otros colores. Por otra parte, algunos temas pueden interferir sus colores con los que 


hemos definido en nuestra aplicación, resultando la combinación difícil de ver, moles- 





ta o desagradable. Sólo se cambiarán colores de los controles, cuando sea expresa- 
mente necesario por algún motivo de diseño (por ejemplo, resaltar de forma clara un 


texto en una etiqueta). 


vocon Ratón 
El ratón es la interfaz por excelencia de cualquier escritorio actual. Hemos de dis- 


tinguir aquí dos apartados. 


En primer lugar se encuentra la representación de éste en el escritorio, el puntero, 
que habitualmente aparece como una flecha, blanca o negra. Al respecto, cada con- 
trol dispone de una propiedad Mouse, la cual puede tomar como valores las cons- 


tantes de la clase Mouse para cambiar su aspecto. 


Se consideran constantes para que el ratón adopte diversos aspectos, como puede 


ser un reloj (espera), un cursor de texto, flechas en diversas orientaciones, etc. 


Las constantes de la close Mouse son las mismas рага gb.qt y gb.gtk, no obstante, 
sus valores numéricos son distintos. Por tanto, un código bien escrito y escalable, 
no debe usar valores numéricos para indicar un lipo de puntero, sino las constan- 


tes de esta clase. 


Cada control dispone, además, de una propiedad Cursor, que acepta una imagen y 
permite dibujar un puntero totalmente personalizado (a partir de un archivo .png о 
.xpm, por ejemplo) para cada control. Dependiendo del servidor gráfico utilizado 
en el sistema, es posible que el cursor pueda tener también varios colores, no sólo 


en blanco y negro como los tradicionales. 


La clase estática Application, aporta una propiedad Busy, que es un número entero. 
Si su valor es mayor que cero, todos los controles y ventanas de la aplicación mos- 
trarán el puntero con un reloj (indicando al usuario que ha de esperar), indepen- 
dientemente del cursor empleado para cada control en concreto. Si el valor pasa a 


cero, se retorna a los cursores habituales. 


Por otra parte, cada control recibe eventos del ratón, que podemos manejar desde 
el programa. Los eventos MouseDown, MouseUp, Mouse Wheel y MouseMove, deter- 
minan, respectivamente, si el usuario pulsó un botón, lo levantó, movió la rueda del 


ratón o movió el ratón de posición. 


Dentro de estos eventos, y sólo dentro de ellos, se puede emplear la clase Mouse, para 
determinar qué botón se pulsó (izquierdo, derecho o central) mediante las propieda- 
des Mouse. Left, Mouse. Right o Mouse.Middle, que toman el valor true si el botón corres- 
pondiente ha sido pulsado o levantado; la posición del ratón dentro del control (Mouse. X 
ү Mouse. Y); la posición del ratón respecto al escritorio (Mouse, ScreenX у Mouse.ScreenY); 


así como el movimiento sobre la rueda del ratón (Mouse. Delta y Mouse. Orientation). 
En la mayor parte de controles, el evento MouseMove, se produce sólo si hay, al menos, 
un botón pulsado del ratón por parte del usuario. 


3. Lo intertaz q ático 











Este pequeño ejemplo permite mover un botón de posición dentro de un formula- 


rio, cuando el usuario lo arrastra mientras mantiene pulsado el botón izquierdo. 


Creamos un formulario Form1, con un botón Buttonl, que incluye este código: 


PRIVATE рХ AS Integer 
PRIVATE pY AS Integer 


PUBLIC SUB Buttonl MouseDown() 


IF Mouse.Left THEN 


ERA Д д н н д AAA 
“ Almacenamos posiciones iniciales 
Е а Е AA AAA КККК КККК ИКУ ИЖ 
рх = Mouse.X 
pY = Mouse.Y 

END ТЕ 





PUBLIC SUB Buttonl _MouseMove ( ) 


ТЕ Mouse.Left THEN 
EXA RARA titt AtA AAA AA 
* Desplazamos el botón de acuerdo 
'* con la variación de X e Y 
LARA + +} її kk 
Buttonl.Move(Buttonl.X ~ px + Mouse.X, Buttonl.Y - 
py + Mouse.Y) 

END IF 


A diferencia de otros entornos de desarrollo, donde el evento recibe varios parámetros 
indicando el botón, posición, etc., en Gambas todo ello se conoce a partir de la infor- 


mación almacenada en la clase Mouse, que sólo está disponible en estos eventos. 


El evento MouseDown es cancelable, lo que significa que empleando la instrucción 
STOP EVENT dentro de su código, se evita que se propague y, por tanto, que el con- 
trol actúe en consecuencia, según su funcionamiento interno habitual (por ejemplo, 


un botón no lanzaría el evento Click 51 se cancela MouseDown). 


Otros eventos comunes еп los controles son DbIClhick (doble pulsación del ratón), 
Menu (pulsación del botón derecho) o Click (pulsación del botón izquierdo). Algunos 


controles pueden no disponer del evento Click. 


Teclado 
De forma similar al ratón, el teclado se controla con los eventos KeyPress y KeyRelease. 


Estos no tienen parámetros. 


La clase estática Key proporciona la información necesaria para controlar el teclado 
dentro de estos eventos, de igual modo que la clase Mouse dentro de los eventos de 


ratón. 


El evento KeyPress es cancelable con la instrucción STOP EVENT, de modo que se 
puede impedir, por ejemplo, que en una caja de texto se impriman determinados 


caracteres. 


En el siguiente ejemplo, se bloquea un TextBox, de forma que sólo permita la entra- 
da de números, la pulsación de las teclas Supr (borrado) y BackSpace (borrado hacia 


atrás) y el tabulador para pasar el foco a otro control, 


Para ello llama a STOP EVENT cuando el código de la tecla pulsada no es ninguno 


de los deseados: 
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PUBLIC SUB TextBoxl_KeyPress() 


SELECT CASE Key.Code 


CASE 48 TO 57 * Códigos ASCII de los números 
CASE Key.BackSpace * Retroceso 
CASE Key.Delete * Borrado 
CASE Key.Tab * Tabulador 


END SELECT 


3. 3 Galería de controles 





Controles basicos 


Tanto gb.qt como gb.gtk aportan una serie de con- 


з. | * E, E наб. ets rara 
troles básicos para desarrollar una interfaz gráfica. ККИ 
г тїй. айн: кп Ети ЄТ, 
А continuación se detallan estos controles y sus 
| Dedni ¿34 E Leia de аш АОН lira 
características principales. | rd 


pin capoodad раги deshire y гепасаг 
ні lio 


* Label: es una etiqueta simple que contiene 


Eobin гает ron raid 


una línea de texto de poca longitud. Su única | ATA = 


тац ниш фт тїшїрїї con dos Ooutiores- | 


función es mostrar un texto en una posición | 


dentro de un formulario. La propiedad Text Ф | Ge | 03] онтоо 
a CharkBismar ado 


es la que determina el texto a mostrar en cada 


Оранта con 
momento. Al margen de este uso básico, se «уати 
| Md Bl Lon 


puede modificar tanto su color de fondo 





(Background), como el color de primer plano Ш Figura б. Controles de gb.q! 


(ForeGround). Como el resto de controles, y gb.gtk. 


responde a los eventos de ratón, por lo que en un momento dado, ayudado de 
MousePress y MouseRelease, pueden servir para implementar un botón perso- 


nalizado. 


* TextLabel: es muy similar al control Label, pero tiene la particularidad de que 
es capaz de mostrar texto formateado en HTML, De esta forma, indicando una 
cadena con etiquetas HTML en la propiedad Text, podremos tener texto que 


combine negrita, itálica, subrayado y otras características de texto enriquecido. 


TextLabell.Text="<b>Texto con HTML</b><br>Dentro de una 
<i>etiqueta.” 


El componente gb.gik es capaz de representar menos etiquetas HTML, en las versio- 
nes actuales, Por su parte, gb.q! permite la inclusión de tablas e imágenes desde un 
archivo. Un programa desarrollado para ser independiente del toolkit, no debería abu- 
sar de esto. Pero un programa expresamente diseñado рага trabajar соп gb.q! puede, 


por el contrario, sacar provecho de sus características extra. 


* TextBox: es una caja de texto, de una sola línea, en la cual el usuario puede modi- 
ficar, copiar, cortar o borrar texto. El texto introducido se recibe o modifica por 
código mediante la propiedad Text. Además, el método Select permite seleccio- 
nar o resaltar por código una parte del texto, y Selection dota de algunas pro- 


piedades para conocer el texto que el usuario ha seleccionado, 


Gambas emplea codificación UTF-8 en la interfaz gráfica, por lo que un corácter 
puede suponer 1, 2 о З bytes de longitud. Asi, escribir Len[TextBox]1. Tex!) para cono- 
cer la longitud en caracteres de un texto, no siempre dará el resultado esperado. En 
su lugar, se debe emplear el método TextBox.Lengih, que da siempre la longitud en 
caracteres del texto. 


l, La interfaz gráfica 
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* TextArea: se trata de una caja de texto que es capaz contener múltiples líneas. 
Se permite también los retornos de carro. Como en el caso del TextBox, el méto- 
do Selection y la propiedad Select determinan el texto seleccionado. Además, 
este control dispone de los métodos Undo y Redo que equivalen a las órdenes 
Deshacer y Rehacer de cualquier editor de textos. Es decir, eliminan los últimos 


cambios del usuario o los vuelven a situar en el texto. 


· Botones: Gambas tiene tres tipos de botones. El primero, Button, es un botón 
normal, dispone de una propiedad Text que indica el texto a mostrar, así como 
una propiedad Picture para mostrar un icono identificativo. Este control dispo- 
ne del evento Click que se dispara cuando se pulsa con el botón izquierdo (o dere- 
cho si está configurado para zurdos). Otro tipo de botón es el ToggleButton, que 
mantiene su estado tras una pulsación, es decir, cuando se pulsa una vez, queda 
presionado, y al pulsarlo otra vez, sale de ese estado. La propiedad Value sirve para 
conocer o variar su estado: FALSE significa ‘по presionado’ y TRUE “presionado. 
El siguiente botón, ToolButton, es similar, pero sólo muestra un pequeño icono, 


sin texto. Está diseñado para insertarse en barras de herramientas, habituales en 





la parte superior de las interfaces, como acceso rápido a ciertas funciones comu- 
nes. Puede actuar como un botón normal, si su propiedad Toggle vale FALSE, o 
сото un interruptor (como un TogeleButton), si Toggle vale TRUE. Así mismo 
dispone de una propiedad Border que de valer FALSE dará apariencia plana al 


botón, y de valer TRUE lo mostrará con relieve, como un botón normal. 


Los botones Toggle pueden ser confusos con algunos temas de KDE o GNOME, sien- 
do difícil para el usuario determinar si se encuentra pulsado o no. Cuando sea posi- 
ble se empleará un CheckBox en lugar de un ToggleBution, o bien se resaltará su esta- 
do de algún modo, por ejemplo, cambiando el color de fondo o el icono que se muestra. 


Esto evitará problemas con los futuros usuarios de la aplicación. 


* CheckBox: muestra un texto determinado por la propiedad Text, junto con 


una caja donde el usuario puede pulsar para marcar o desmarcar la opción. 


La propiedad Value indica si el usuario ha marcado o no el CheckBox, y el even- 
to Change informa de cada cambio. Se suele emplear para opciones de confi- 
guración que sólo disponen de dos posibles valores: ‘Activado o Desactivado, 


‘Si o No! "Verdadero o Falso, 


* RadioButton: es similar a CheckBox, pero tiene la particularidad de que todos 
los RadioButton existentes, hijos de un mismo contenedor, están internamen- 
te agrupados, y en cada momento sólo puede haber uno activado. Cuando el 
usuario activa uno de ellos, el resto se desactiva, por lo que se emplea para 


seleccionar una opción que excluye a otras dentro de un menú de opciones. 


* PictureBox: este control tiene la función de mostrar una imagen. Responde a 
eventos de ratón, por lo que se puede emplear como botón personalizado. Su 
propiedad Stretch permite adaptar la imagen al tamaño del PictureBox en cada 
momento, la propiedad Border determina su apariencia plana o con relieve y 


la propiedad Picture representa la imagen a mostrar. 





Otros controles basicos miscelaneos 


= 28 Otros controles que pueden ayudar a diseñar una 





interfaz y tienen un propósito mucho más concre- 
to son los que se presentan en la imagen de la 


izquierda. 





* ProgressBar: barra de progreso que muestra un 
il | | porcentaje de forma gráfica. Sirve para dar idea del 
| ауапсе deun proceso que dura mucho tiempo, de 
Figura 7. Otro tipo de forma дие el usuario no sienta que la aplicación 


controles. está colgada mientras trabaja en segundo plano. 


* Slider: es similar a ProgressBar en el sentido de que muestra un porcentaje, 
pero en este caso el usuario es quien varía su valor. Un buen ejemplo es su uso 
para subir o bajar el volumen en una aplicación que reproduzca audio. Los 


valores de volumen se definen entre un rango máximo y mínimo, y el usuario 
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lo cambia a su gusto. El evento Change señala un cambio por parte del usua- 


rio en el valor de la escala, 


* MovieBox: a pesar de su sugerente nombre, no se trata de un reproductor mul- 
timedia, sino algo más humilde. Muestra una animación en formato GIF o 
MNG, sin que el programador deba preocuparse de la sucesión de frames del 
archivo que se muestra. La propiedad Path determina el archivo a reproducir, 
y Playing permite el control de la reproducción, con los valores TRUE (repro- 
ducir) o FALSE (detenido). 


* ScrollBar: se trata de una barra de scroll para desplazar otro control, habi- 
tualmente, de forma que sea el usuario quien determine la posición de éste. La 
propiedad Value indica el valor elegido por el usuario, y el evento Change seña- 


la cada cambio. 


A diferencia de otras interfaces gráficas, donde existen variantes horizontales y verti- 





cales para determinados controles, en Gambas los controles Slider y ScrollBar deter- 
minan su orientación automáticamente: si son más anchos que altos serán horizonta- 


les, y verticales en caso contrario. 


Listas de datos 


Existen tres controles diseñados para mostrar listas de diferentes modos: 


l. ListBox: es una lista simple. Se añaden o eliminan elementos que se repre- 
sentan como una línea de texto cada uno. El usuario tiene capacidad para 
seleccionarlos o deseleccionarlos. La propiedad Mode determina si el usuario 


no puede seleccionar ninguno, sólo uno o varios. 


2. ListView: similar a ListBox, dispone de capacidades adicionales. Puede repre- 
sentar un icono junto con cada elemento de la lista, y cada uno de ellos está 


identificado por una clave única de texto, que nos permite hacer búsquedas 


de los elementos por su clave. Asi mismo dispone de un cursor interno que 
puede moverse hacia adelante y hacia atrás, lo que lo hace apropiado para 
interactuar con una aplicación de bases de datos, donde puede representar 


un campo de una tabla. 


3, ComboBox: es una lista desplegable. El usuario sólo ve el elemento seleccio- 


nado en cada momento y puede desplegar la lista para seleccionar uno u otro. 


Otros controles avanzados 


А continuación mostramos otros controles más avanzados: 


« TreeView: sirve para representar elementos en un árbol, de forma que cada 


nodo puede tener otros nodos hijos. 


* ColumnView: es similar al anterior, pero cada nodo puede disponer de varias 


columnas. 





* GridView: sirve como representación de parrilla, de forma que disponemos 
de registros agrupados en filas y columnas. Es empleado, habitualmente, para 


interactuar con bases de datos. 


s8585 З. 4 Dialogos 


Gambas aporta una serie de diálogos auxiliares para mostrar o recabar información, 


interactuando con el usuario. 


opaco La clase Message 

La clase Message se encarga de mostrar una ventana modal al usuario, en la cual pode- 
mos definir un texto, que será una información o una pregunta, y una serie de boto- 
nes para elegir una opción. La clase Message es estática, y dispone de una serie de 
métodos para mostrar distintos tipos de mensajes, que serán reconocibles para el 


usuario gracias al icono que acompaña a la ventana y que da una idea del carácter del 


a Ї 5 Є: 
La мега спе 
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mensaje. En estos métodos se situará siempre, como primer parámetro, el texto a mos- 
trar y, a continuación, el texto de los botones, hasta un máximo de tres. Si no se indi- 
ca el texto de los botones, aparecerá sólo un botón indicando OK para que el usua- 


rio acepte la lectura del mensaje. 


* Message.Info (Texto, Boton] ): se utiliza para mos- 
trar un mensaje meramente informativo. Sólo per- 
mite definir un botón, que normalmente tendrá un - - 
texto tal como OK o Aceptar. a Figura 8. Mensaje 


informativo. 
La clase Message también puede ser llomada como una función, de modo que el código: 
Message. Info (“Mensaje”) 
Es equivalente a: 
Message (“Mensaje”) 
* Message.Delete (Texto, Boton1, Bo- 
ton2, Boton3): se utiliza para indicar 


que se va a proceder a eliminar algo 


(archivo, registro de una tabla...), y 





se solicita al usuario su confirmación. 


- Message.Error (Texto, Botonl, Bo- || | Mensaje de Error 


ton2, Boton3): se emplea para indi- 





Continuar | Сее] 


саг un mensaje de error. 


Figura 10, Mensaje de error. 













* Message.Question (Texto, Boton1, Boton2, Boton3): es 


Pregunte al usuano 


ы] 


una pregunta al usuario, generalmente para confirmar 
una acción o una opción de configuración. 
Figura 11. Mensaje 


para preguntar. 


* Message.Warning (Texto, Botonl, Boton2, 
Boton3): advierte al usuario de que la acción que 


vaa realizar supone un cierto peligro, por ejem- 





plo, pérdidas de datos de una tabla que podrían 
Figura 12. Mensaje de ser útiles aún. 


advertencia. 


Los métodos de la clase Message devuelven un número entero que denota el botón que 
el usuario pulsó. El primer botón comienza en el número 1. Los mensajes son moda- 
les, lo que quiere decir que la interacción de la interfaz de usuario con el programa, así 


como el flujo de éste, quedan bloqueados hasta que se pulse uno de los botones. 


DIM hRes AS INTEGER 
hRes=Message.Warning(“¿Formatear el disco duro?”, 
"gi", No") 

IF hRes=1 THEN Formatea ріѕсо() 


Dependiendo del gestor de ventanas del sistema, es 
posible que los cuadros de diálogo tengan un botón 
de cerrar. 51 el usuario cierra el mensaje de este 


modo, se devolverá el número del botón existente 





más alto (en el ejemplo anterior el 2), por tanto la 
Figura 13. Cuadro de opción menos peligrosa, o que se estima a ejecutar 


diálogo con botón de cerrar. рог defecto, se habrá de indicar en el botón más alto. 





y 
[ МГ Г! ат g=} 


Los mensajes se han de emplear con prudencia. Una aplicación que continuamente blo- 
quea la interfaz y desvía el foco de atención del usuario, puede llegar a ser realmente 
molesta. Las interfaces de otros sistemas propietarios se han llegado a hacer famosas en 


los chistes de las oficinas por las continuas preguntas del estilo “¿Está seguro de que...?”. 


La clase Dialog 


Esta clase aporta ciertos diálogos comunes, que ahorrarán mucho tiempo de trabajo 


mecánico al programador de una aplicación gráfica. Dependiendo del componente, 
lógicamente, tendrán un aspecto similar al resto de aplicaciones GTK+ o ОТ. Los 
métodos de esta clase no toman ningún parámetro, y devuelven siempre un valor 
Bolean, de modo que TRUE significa que el usuario ha pulsado el botón Cancelar, y 
FALSE significa que aceptó el valor seleccionado. Las posibilidades que nos ofrecen 


son las siguientes: 


* Dialog.OpenFile(): sirve para 


Fe jini 


que el usuario seleccione un || 35s 
archivo para su apertura. La | а. аа 

propiedad Path de la clase se нА caco 

utiliza para situar la ruta inicial | ие 

en el sistema de archivos. Tras | nt o 


толам. 


ser mostrado y seleccionado рог 
el usuario, contiene la ruta ele- 


gida por éste. 


* Dialog.SaveFile(): es similar al 
anterior, pero el diálogo está 


orientado a guardar un archivo, 





de forma que permite elegir uno 
que no existe. Como en el caso | Figura 15. Ventana para guardar un archivo. 
de OpenPile(), la propiedad Path 


sirve para situar la ruta inicial y para recabar la ruta seleccionada por el usuario. 
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* Dialog.SelectDirectory(): en este 
caso, el valor de Path no será un 
archivo, sino una carpeta. El diálogo 
permite seleccionar sólo carpetas, no 


archivos. 


* Dialog.SelectColor(): permite al 
usuario seleccionar un color perso- 
nalizado. La propiedad Color se 
emplea de modo similar a la propie- 
dad Path de los casos anteriores, es 
decir, sirve tanto para fijar el color 
inicial como para determinar el ele- 


gido por el usuario, 


· Dialog.SelectFont(): con él se elige 
una fuente personalizada. Se trabaja 
sobre la propiedad Font de la clase 


Dialog. 


Además de la propiedad Path existe una propiedad Paths para obtener los valores de los 


archivos seleccionados, cuando se necesite elegir más de uno a la vez. Para activarla, el 


método Dialog. OpenFile admite un parámetro opcional que habrá de tener valor TRUE. 


LO Те haz arálica 





* Dialog.Filter: permite indicar filtros para los archivos a mostrar. Se trata de 
una matriz de cadenas en la que podemos situar, por ejemplo, las extensiones 


de los archivos a elegir, usando comodines si lo deseamos. 


· Dialog.Title: permite establecer un título para la ventana, que por defecto 


corresponderá a la acción a realizar (Select Font, Select Color, etc.). 


Dialog.Title = “Seleccione imágenes a procesar” 
Dialog.Filter = [“*.рпд", “.jpg”] 
IF Dialog.OpenFile(TRUE) THEN 
Message.Info(“Acción cancelada”) 
ELSE 
Procesa_Imagenes/(Dialog.Paths) 
END IF 


шош ш 





| Diálogos personalizados 
Al margen de los diálogos ya mencionados, el programador puede crear otros pet- 
sonalizados. Cuando un formulario se muestra de forma Modal, es decir, con los 
métodos ShowModal() o ShowDialog(), puede devolver un valor entero, que sirve 


como indicación de la opción elegida por el usuario, Veamos un pequeño ejemplo. 


Creamos un programa gráfico, con un formulario principal de inicio llamado FMain 
y otro formulario llamado FDialogo. Creamos también tres pequeños iconos en for- 
mato png o los copiamos de la carpeta 

/usr/share/pixmaps del sistema, y los renom- MIER 
bramos сото a. png, b.png y српе, de forma que MEN 

los tengamos disponibles en la carpeta del pro- 


grama. El formulario principal FMain tendrá 





un PictureBox llamado plmage, y un botón 
denominado btnSelect con el texto Icono. El for- Figura 19. Formularios FMain y 


mulario FDialogo dispondrá de tres controles FDialogo. 


PictureBox, cada uno de ellos conteniendo uno de los iconos png que habíamos situa- 


do en el proyecto, y los llamados picl, pic2 y pic3. 

Con el código del formulario FDialogo lo que conseguiremos es que cada vez que 
el usuario pulse uno de los controles PictureBox, el formulario, que se mostrará de 
forma modal, devuelva un valor entero que identifquea el icono pulsado. 


PUBLIC SUB picl MouseDown () 


ME.Close(1) 


PUBLIC SUB ріс2 MouseDown() 


ME.Close(2) 


PUBLIC SUB pic3_MouseDown() 


ME.Close(3) 


En cuanto al formulario FMain, la pulsación del botón 







conducirá a mostrar el formulario FDialogo de forma 
modal y, en función del valor devuelto, situará una ima- 


gen u otra en el PictureBox llamado plmage: 


Figura 20. Imágenes que hemos 


situado en el PictureBox. 
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PUBLIC SUB BtnSelect_Click() 
SELECT CASE FDialogo.ShowDialog() 


CASE 1 


pImage.Picture = Picture[“a.png”] 


CASE 2 


pImage.Picture Picture[“b.png”] 
CASE 3 
plmage.Picture = Picture[“c.png”] 


END SELECT 


Tras ejecutarlo, podremos comprobar el resultado. Si el usuario cierra el formula- 
по modal pulsando el aspa del gestor de ventanas, se devolverá el valor por detec- 
to, es decir, cero, lo que equivale a cancelar la selección. Puede plantearse otro pro- 
blema más complejo: la necesidad de devolver otro tipo de valores, tales como 
cadenas о referencias a objetos, En este caso, la solución del entero no es válida. Si 
tratamos de mantener una cadena en una variable del formulario, ésta se liberará 
tras cerrar el formulario, lo cual no nos sirve. Por ejemplo, modificando el código 
anterior, de la siguiente manera, para que el formulario FDialogo mantenga una 


cadena con el valor elegido: 


PUBLIC Valor AS String 


PUBLIC SUB picl_MouseDown() 


Valor = “a.png” 
ME.Close( ) 


PUBLIC SUB pic2_MouseDowmn() 


Valor = “b.png” 
ME.Close() 


PUBLIC SUB pic3_MouseDowmn () 


Valor = “c.png" 


ME.Close() 


Y modificando el formulario principal para que tome el valor de la cadena: 
PUBLIC SUB BtnSelect Click() 
FDialogo.ShowDialog() 
IF FDialogo.Valor <> “” THEN 


pImage.Picture = Picture[FDialogo.Valor] 
END IF 


No conseguiremos que funcione, ya que la secuencia es la siguiente: 
1. La llamada a FDialogo.ShowDialog() crea una instancia de la clase FDialogo. 


2. Tras la pulsación del usuario, se destruye esa instancia y con ella el valor alma- 


cenado en la variable pública Valor. 


3. Lo interfaz gráfica 
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3. Al llamar a FDialogo. Valor, se crea otra instancia de FDialogo, que tiene la 


variable Valor con su valor por defecto (cadena vacía). 
Podemos solventar este problema por dos caminos: 


1, El primero consiste en declarar la variable Valor como estática. Así la varia- 
ble no depende de cada instancia, si no de la clase, de forma que no se crea ni 


se destruye en cada llamada a FDialogo.ShowModal(). 


2. El segundo consiste en aprovechar 
la propiedad Persistent de los for- 


mularios. Poniendo su valor a TRUE, 





un formulario no se destruye cuan- 
do el usuario lo cierra pulsando el Ш Figura 21. Propiedad Persistent con 
aspa del gestor de ventanas, ni se valor TRUE. 

llama al método Close(), si no que 

simplemente se oculta. Y si estaba en pantalla de forma modal, el programa 


abandona este modo y continua su ejecución normal. 


Así pues, en tiempo de diseño situaremos la propiedad Persistent del formulario 
FDialogo a TRUE, y modificaremos el código del formulario FMain para que des- 


truya el formulario de forma explícita tras haber leído el valor que interesaba. 
PUBLIC SUB BtnSelect Click() 
FDialogo.ShowDialog() 
IF FDialogo.Valor <> “" THEN 
pImage.Picture = Picture[FDialogo.Valor] 


END IF 


FDialogo.Delete() 


З. 5 Menús 


| > FMain.form [Modificado]____—| [а creación de menús es realmente sencilla уа que un 
ИТ КМШ: asistente del IDE permite diseñarlos. Tan sólo hay 
que situarse sobre un formulario, pulsar el botón 


derecho, y seleccionar la opción Editor de menu... 


h 
o Evento 


тзн Кард” | Los menús se crean como árboles, es decir, cada menú 
de primer nivel, por ejemplo los típicos menús de la 


barra superior de muchos programas como Archivo, 


Alineamiento 


Editar, Ver, Ayuda, etc., tendrán menús hijos que se 


па CEN or de menu ОМЕР 


Ы Guardar 





sitúan un nivel más profundo que éste у, а su vez, si 

Figura 22. Localización del estos tienen hijos, se situarán un nivel más profundo, 
Editor de menú. 

Todo ello se controla con los botones con forma de 

flecha, las verticales permiten cambiar el orden de aparición de los menús, y con las 


horizontales modificamos la profundidad de estos. 





Las propiedades más importantes son el Nombre, que es el nombre del objeto menú 
y que corresponderá con su gestor de eventos, el Titulo, que es el texto que aparece- 
rá en la pantalla, un icono a elegir si lo desea- 
mos, y un posible atajo de teclado para acce- 


der sin necesidad del ratón. 


Si el nombre de un menú se deja en blanco, 


éste se muestra como una barra separadora 


. 
ГЕ 
| ерши ү| ілвагіы. ј formar |j ЕЕ еч 
| Hombre меба асат — O il 
iW Habilitat 
- ы Матай 


en lugar de una entrada de menú normal, 


Enpa | 
Titula авіасстаг Еп аз pa ү , 
mgs | кш En la Figura 23 podemos ver un ejemplo con 
ен ñ Ч в І г) І ii 
‚ ИЕ ҮП кё há un menú principal que tiene tres opciones, 
| CE | састы 





y sus correspondientes submenús. 
Figura 23. Ejemplo de menús con 


submenús. 
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Г FMain.form [Modificado] 
Archivo ¡Editor Ayuda 


Coplar 
Pegar 
E ii simo e 


Figura 24. Formulario FMain. 


El formulario tendrá el aspecto de la Figu- 






ra 24. Si en tiempo de diseño pulsamos 











sobre uno de los menús que no tienen hijos, 
el IDE nos llevará directamente al evento 
Click del menú, que es donde podemos 
crear el código que se ejecutará cuando el 


usuario pulse el menú. 


PUBLIC SUB mmuSeleccionar Click() 


END 
Si lo que deseamos es crear un menú delos |= "маю Editar memi O ШЕ 
t ti: A 
que se muestran cuando el usuario pulsa, | = 
por ejemplo, el botón derecho sobre un for- Seleccronar todo 
mulario u otro control, tendremos que crear 
un menú de primer nivel con su propiedad | 
visible a FALSE, y sus correspondientes |... ыш y вы [ү ане 
hijos. Después, al lanzarse el evento del for- [летие ты 7 сме» 

А Gni Г o — ® айттап 
mulario o control que nos interesa, por |а [е e > 
6 s 8 z Ergo | тшт 
ejemplo, la pulsación del botón derecho 7" 

| Atapa ОСТИ. Oar СУАТ Имола) El 
| Г КАЕ a | А | pa pe Р А : + E 
sobre un formulario, que se detecta median- | tree (Dj 28, 
i | A ; C U Di Cancel 
te la gestión del evento Meritu, indicaremos а | 
a nuestro menú invisible que debe mos- #@ Figuro 25. Menú que vemos al pulsar el 
trarse como un menú contextual: botón derecho de un formulario. 


PUBLIC SUB Form Menu() 


muEditar.Popup( ) 


Al ejecutar el código, veremos el resultado al pulsar el 






botón derecho sobre el formulario, 





Pegar 
Seleccionar todo 






En cuanto a la naturaleza de los menús, no son más que 
Figura 26. Resultado objetos, aunque en este caso no provienen de la clase 
del menú contextual, Control, si bien disponen de algunas propiedades comu- 

nes como Text o Picture. 
= miMenu mal 
¡Acciones A la hora de crear un menú, habrá de indicarse su objeto 


Enviar 
Eliminar 


padre, que podrá ser una ventana o formulario para los 





menús de primer nivel, u otro menú para los hijos del pri- 
Figura 27, Acciones mero. Los menús se pueden crear o destruir también direc- 


del menú creado, tamente por código: 


PUBLIC SUB Form Ореп() 





DIM hl AS Menu 
DIM h2 AS Menu 
DIM h3 AS Menu 


hi = NEW Menu(ME) 


hl.Text = “Acciones” 


h2 = NEW Menu(hl) AS “h2” 
h2.Text = "Enviar" 


h3 = NEW Menu(hl) AS “h3” 
h3,Text = “Eliminar” 





З. 6 Alineación de los controles 


Propiedades de alineacion 
Algunos contenedores disponen de una propiedad Arrangement que permite deter- 
minar cómo se alinean los controles dentro de un contenedor. Por defecto, el valor 
de la propiedad es None, lo que significa que las posiciones de los controles son libres, 


como es típico en las interfaces para Windows™ o en algunas librerías como QT. 


Sin embargo, en otras librerías gráficas como GTK+, o en las definiciones del len- 
guaje XUL diseñado por el proyecto Mozilla para aplicaciones web, lo habitual es 
encontrar contenedores que definen dónde se situará cada hijo, de forma que el pro- 
gramador sólo ha de indicar el modo general de alineamiento y los controles se adap- 


tarán en todo momento a dicha alineación. 


En principio, diseñar interfaces de esta manera puede ser algo complicado para gente 
sin experiencia, no obstante, una vez que se toma algo de pericia, aporta grandes ven- 
tajas. La principal es que el diseño de ventanas redimensionables con controles varia- 


dos en su interior es trivial, 

Cada usuario puede agrandar o hacer más pequeña la ventana, o variar su relación 
alto/ancho, y la aplicación seguirá manteniendo un aspecto coherente en cada momen- 
to, dentro de unos límites razonables de tamaño, 


Gambas define varias posibilidades de alineamiento para los controles: 


* None: alineamiento libre, el contenedor no decide nada acerca de la posición 


de sus hijos. 


* Horizontal: todos los controles se alinean de izquierda a derecha, ocupando 


todo el espacio en vertical dentro del contenedor, 


* Vertical: todos los controles se alinean de arriba a abajo, ocupando todo el 


espacio en horizontal dentro del contenedor. 


* LeftRigth: los controles tratan de alinearse de izquierda a derecha, y si falta 


espacio, de arriba a abajo. 


· TopBottom: los controles tratan de alinearse de arriba a abajo, y si falta espa- 


cio, de izquierda a derecha. 


Además de la propiedad general Arrangement, se aporta la propiedad Padding, que 
es un espacio que queda libre en el borde del contenedor, y una propiedad Spacing, 


que determina un espacio de separación entre control y control. 


Cada control, por su parte, dispone de la propiedad Expand. Si el control se sitúa 
sobre un contenedor cuya propiedad Arrangement es distinta de None, el valor 
Expand determina si éste, junto con el resto de controles del contenedor que ten- 


gan la propiedad Expand a TRUE, tratarán de ocupar el espacio libre que quede 


dentro del contenedor. 


Para comprobar el efecto de todas estas propiedades, crea- 
[Acciones | mos un nuevo proyecto gráfico llamado Alineacion, con 
| Enviar | 


Eliminar un sólo formulario de inicio FMain, en cuyo interior situa- 





remos dos botones y un RadioButton. Tras ejecutarlo vere- 
Figura 28. Proyecto mos el resultado habitual: un formulario con tres con- 


Alineación. troles algo desordenados. 


Cambiamos el valor de la propiedad 
Arrangement a Horizontal y ejecuta- 
mos el programa. 

Ahora los controles se han situado ali- 


neados en horizontal, ocupando todo 


RadioButtonl 


el espacio vertical del contenedor 
(Figura 29). 





Figura 29. Controles alineados en horizontal, 
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Ponemos la propiedad Border del formulario a Resizable, de modo que podamos 
variar su tamaño, Hacemos varias pruebas de ejecución cambiando su relación altu- 


га/апсһига. 





Figura 30. Variación del formulario según altura/anchura. 


Como podemos observar, los controles siguen ocupando todo el ancho del contene- 
dor, mientras que el ancho extra queda libre, Situamos ahora la propiedad Expand del 
control Button2 a TRUE, y volvemos a ejecutarlo. Con esta nueva configuración, todo 


el espacio del contenedor es aprovechado, modificando el ancho del control Button2. 





OBR 


г Redafutioni 






Figura 31. Aprovechamiento del espacio del contenedor. 


Si situamos la propiedad Expand de Button1l también a TRUE, el espacio extra será 


compartido por ambos controles. 


С RadoButran] 


Figura 32. Espacio compartido entre los controladores Button] y Button2. 


Para dejar espacio visible por el borde del contenedor, podemos dar un valor a la 
propiedad Padding, y para separar un poco cada control utilizaremos la propiedad 


5pacing. Los valores indicados son píxeles de separación. 


El efecto de la propiedad Arrangement no se aprecia en tiempo de diseño, de este 
modo si por error se combia a un valor no deseado, podremos revertirlo sin perder las 


posiciones de cada control dentro del contenedor, 


20000 Controles con alineación predefinida 
Los controles Form (Window), Panel, TabStrip y ScrollView permiten definir las pro- 
piedades de alineación, sin embargo, otros controles tienen esta propiedad implici- 


ta y no es modificable. Estos son los siguientes: 
· Hbox: es un panel que siempre tiene alineación horizontal, 
" Vbox: es un panel con alineación vertical, 
* Hpanel: sigue el modelo RightToLeft. 
* Vpanel: sigue el modelo Vpanel. 


Además de estos, los controles Hsplit y Vsplit son contenedores con un modo de tra- 
bajo totalmente distinto: cada control añadido se muestra separado por una barra 
vertical, en el caso de Hsplit, и horizontal, en el caso de Vsplit, que el usuario puede 


mover para agrandar uno u otro control en detrimento del tamaño de su vecino. 


20000 Diseño de una aplicación que aprovecha este recurso 

A la hora de diseñar una aplicación redimensionable, lo mejor es plantear áreas de 
trabajo con distinta funcionalidad y agruparlas en distintos paneles horizontales y 
verticales. Supongamos un clon de los exploradores de archivos habituales. Una 


zona de trabajo estará formada los típicos botones de menú, que permiten realizar 


3. Lo interfaz gráfica 
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las tareas más comunes y que presentan un icono y un tooltip explicativo. Otra 
zona de trabajo puede ser la parte inferior, en la que se muestran datos de estado. 
Por último, la zona central muestra los archivos y, a su vez, es una zona de trabajo 
que comprende otras dos: un árbol con las carpetas a la izquierda, y una zona más 
grande a la derecha con la vista en detalle de los archivos. No crearemos en este 
ejemplo el código correspondiente, pero sí seguiremos los pasos necesarios para crear 
la interfaz de un modo adecuado, para conseguir que cada usuario pueda disponer 


de sus ventanas como mejor lo desee. 
En primer lugar, hay tres grandes grupos de trabajo, que van de arriba abajo. Por 
tanto, lo mejor es definir un formulario con la propiedad Arrangement situada a 


Vertical. 


FMain.form [Modificado] 


False 


Falso 


Resizable 
Гала 
False 
Falis 
Едіве 
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Figura 33. Formulario con la propiedad Arrangement a Vertical. 


Dentro de ésta, situaremos tres paneles con alineación horizontal, es decir, tres con- 
tenedores Hbox. Deseamos que la parte superior con los botones y la inferior con la 
barra de estado, tengan un ancho fijo, pero la parte central que contiene el cuerpo 
de la información útil del programa, será redimensionable. Por tanto, la propiedad 
Expand del panel central habrá de tener el valor TRUE. 


ao Background 





Figura 34. Paneles Hbox con alineación horizontal. 





Figura 35. Diseño del 
formulario FMain. 





Figura 36. Botones auxiliares 


del formulario. 
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Figura 37. Introducción del 


control Hsplit. 


La parte superior contendrá diversos botones tipo 
ToolButton, que podemos resaltar con distintos ico- 
nos. La parte inferior dispondrá de dos etiquetas 
Label con borde Sunken, una de las cuales, según 
qué parte se quiere hacer extensible, tendrá su pro- 
piedad Expand a TRUE. 


Dentro del cuerpo se situará una caja vertical a la 
izquierda (Vbox) con otros botones auxiliares. Es 
el mismo diseño que la zona de botones principal, 


pero alineada en vertical. 


Tras esto, situaremos un contenedor Hsplit, de 
modo que el usuario pueda disponer de una barra 
para modificar el tamaño relativo del árbol y la zona 
principal de trabajo. Dentro de él se colocará, a la 
izquierda, el control TreeView para el árbol, así 


como el control IconView para la zona principal. 


El control Hsplit debe tener la propiedad Expand 
a TRUE, para que aproveche todo el espacio libre 


disponible dentro de su contenedor. 


Fs а f: 
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Ya podemos ejecutar el programa para ver la interfaz, añadiendo, si lo deseamos, 


algo de código para rellenar el árbol y la vista de iconos. 


Podemos modificar el alto y ancho de la aplicación, la cual 
se encargará de mantener, en todo momento, la relación 


de los distintos controles, sin que sea necesario añadir nin- 


eún código de cálculo de posiciones por nuestra parte. 





Figura 38. Modificación del alto y ancho de la aplicación Alineción. 


3. 7 Introducción al dibujo de primitivas 


Además de los controles ya diseñados, el programador puede necesitar dibujar grá- 
ficos personalizados. La clase estática Draw se emplea para dibujar sobre un control, 


que puede ser un formulario o el control DrawingArea. 


Dibujar directamente sobre un formulario no tiene demasiado sentido, ya que una 
vez se refresque la interfaz, por ejemplo tras pasar otra ventana por encima o mini- 
mizar y maximizar, se pierde el dibujo realizado sin que tengamos control sobre la 


situación. 


5ш embargo, DrawingArea dispone de dos modos de trabajo: en el primero, como еп 
el caso del formulario, se pierde el dibujo una vez se refresca el control, pero el even- 
to Refresh nos informa para que redibujemos la parte eliminada; en el segundo, que 
se activa poniendo la propiedad Cached a TRUE, el control guarda una caché del dibu- 
jo realizado y no genera eventos Refresh, sino que redibuja automáticamente la zona 


clareada. 






l Proyecta - Dibujando _ 
bicho Propecia Vista Herramientas T 
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Como ejemplo, crearemos un proyecto grá- 





fico Dibujando, que contenga un formula- 






rio FMain, у en su interior un control 







DrawingArea llamado Lienzo y un botón lla- 






mado Dibujar. 





La propiedad Cached del control DrawingArea 
se pondrá a TRUE. 





Figura 39, Proyecto Dibujando. El código del botón Dibujar será el siguiente: 


PUBLIC SUB Dibujar Click() 


Draw.Begin(Lienzo) 
Draw.Line(0, O, Lienzo.W, Lienzo.H) 
Draw.Line(0, Lienzo.H, Lienzo.W, 0) 


Draw.End () 


|| = Dibujando 


Al ejecutar el programa y pulsar el 


Eon botón, aparecerá un aspa creada por 





nuestro código. 





Figura 40. Resultado de nuestro código. 


Este código contiene, para cualquier dibujo, el método de trabajo siguiente: 


' En primer lugar, se ha de especificar a la clase Draw qué control será el emplea- 
do para dibujar los elementos que indiquemos, para lo cual se emplea el méto- 
do Draw.Begin() pasando como parámetro el control deseado, en nuestro caso 


el control Lienzo, 








* Tras esto, pasamos a dibujar las primitivas que deseamos. Aquí hemos emple- 
ado el método Draw.Line(), el cual dibuja líneas cuando especificamos los pun- 
tos de origen y destino. 

* Finalmente, siempre hay que llamar al método Draw.End() para que la caché 
del control DrawingArea se dibuje en la pantalla, y se liberen los recursos aso- 
ciados al proceso de dibujado del control. 

La clase Draw permite dibujar distintos tipos de primitivas: 

" Draw.Ellipse: elipses. 

* Draw.Line: lineas. 

· Draw.Point: puntos. 

* Draw.Polyline: varias líneas enlazadas. 

· Draw.Polygon: poligonos. 


* Draw.Rect: rectángulos. 


En todo momento podemos controlar distintos aspectos del dibujado, utilizando lo 


siguiente: 


· Draw.BackGround: color de fondo del pincel. 


* Draw.ForeGround: color de primer plano del pincel, 


· Draw.FillColor: color para relleno de elipses o rectángulos. 


* Draw.FillStyle: utiliza las constantes de la clase Fill para determinar el patrón 


de dibujado (relleno, rayado en horizontal, líneas y puntos, etc.). 


Además de las primitivas, podemos dibujar elementos complejos con: 


" Draw.Text: dibuja un texto en una posición indicada y con la fuente seleccio- 


nada por Draw. Font. 
* Draw.Image: dibuja un gráfico almacenado en un objeto Image. 
* Draw.Picture: dibuja un gráfico almacenado en un objeto Picture. 
or último, Draw.Clip permite seleccionar una área de Clipping, es decir, reducir el 


irea útil de dibujo a un rectángulo que especifiquemos, de modo que todo trazo que 
quede fuera de él se excluirá de ser realmente dibujado. 
































4. 1 La ayuda 
ofrecida por otros programas 


Los sistemas GNU/Linux siguen la filosofía de UNIX. Parte de ella 

consiste en crear pequeños programas especializados en cada tarea, en 

lugar de generar grandes aplicaciones monolíticas. Como resultado, en GNU/Linux 
disponemos de muchas pequeñas utilidades de consola capaces de desarrollar casi 
cualquier tarea que necesitemos. Los programas con interfaz gráfica, habitualmen- 
te, son simples front-ends para aplicaciones de línea de comandos. Podemos poner 
como ejemplo el magnífico programa de grabación de CDs y DVDs K3B, una apli- 
cación sencilla, bella e intuitiva que, sin embargo, es sólo la portada de aplicaciones 
como cdrecord o mkisofs, potentes herramientas de consola. Reproductores de vídeo 
o audio como Totem o Kmplayer, recubren también aplicaciones sin interfaz gráfi- 


ca propia, como el gran Mplayer. 
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Para aquellos que provienen del entorno Win32/VB, puede resultar extraño, acos- 
tumbrados a trabajar sólo con los recursos que aporta el propio entorno de progra- 
mación o añadiendo llamadas a la API, esto es, trabajando con librerías del sistema 
cuando VB se queda corto, pero este modelo de segmentación en pequeñas unida- 


des ofrece pronto grandes ventajas al programador. 


GNU/Linux permite desarrollar sin reinventar la rueda. La shell bash, común en 
estos sistemas, junto con las herramientas habituales de consola que acompañan 
a cualquier distribución, proporcionan todo lo necesario para grabar un CD, repro- 
ducir vídeo, gestionar servicios LDAP, transmitir ficheros con ftp, http, smb, sep 
o nfs, enviar y recibir correos, administrar bases de datos, convertir formatos de 
ficheros gráficos o de texto y muchas tareas más. No es necesario, en la mayor 
parte de nuestros desarrollos, entrar en las complejidades de las diversas librerías 
escritas en C, tratar de solucionar los problemas de conversión de tipos entre un 
lenguaje de alto nivel y C, ni caer frecuentemente en violaciones de segmento por 
un descuido en un puntero mal gestionado. Basta con consultar la documenta- 
ción de un comando y llamarlo tal y como haríamos manualmente desde la con- 


sola del sistema. 


La depuración del programa también resulta más sencilla: basta probar el comando 
directamente desde un terminal de texto y comprobar los resultados, antes de embe- 
berlo en el código Gambas. 


4. 2 Gestión potente de procesos 


A diferencia de VB, donde lo único que podíamos hacer sin ayuda de la API era lan- 
zar un proceso y desentendernos de él, Gambas permite sincronizar la ejecución de 
los dos programas, comunicarse con él leyendo y escribiendo por la entrada y sali- 
da estándar (stdin y stdout), conocer el estado (en ejecución o finalizado) y recibir 


sus mensajes de error por la salida estándar de errores (stderr). 


4. З EXEC 


Existen dos comandos para lanzar la ejecución de programas desde Gambas: EXEC 
y SHELL. Un programa en ejecución se denomina proceso y a partir de ahora habla- 
remos de procesos más que de programas. La primera instrucción, EXEC, lanza el 


comando que indiquemos, acompañado de los parámetros que escribamos: 


[Variable=] EXEC [Command] [ WAIT ][ FOR 
(READ|WRITE|READ WRITE) [TO String] 


Para facilitar la escritura de los parámetros, evitando los problemas que pueden sur- 
gir con caracteres especiales tales como los espacios, la sintaxis de EXEC indica que 


hemos de pasar el comando y los parámetros como una matriz o array de cadenas: 


[Command „рагамі param2,..] 


De esta forma, si tenemos que ejecutar, por ejemplo, el comando cat con un nombre 
de archivo tal como mi archivo. іх! que tiene un espacio en medio, desaparece la ambi- 
gúedad y la necesidad de indicar más caracteres especiales сото \, con el fin de eli- 
minar la posibilidad de que el comando tome mi archivo.txt como dos parámetros en 


lugar de uno sólo. 


Vamos a ir desgranando poco a poco las diferentes opciones. Command es el único 
parámetro obligatorio y representa el comando a ejecutar. En el modo de trabajo más 
simple de EXEC, éste ejecuta el comando que le indiquemos y se desentiende de él. 
Ahora, vamos a crear un proyecto de consola con Gambas. Para ello, añadimos un 


módulo de inicio y, como único código, escribimos: 


PUBLIC SUB Main() 
EXEC [“1s”,"-1"] 
END 








Al ejecutarlo se lanza el comando ls con el parámetro -Ї, obteniendo un listado de los 
archivos de la carpeta actual en formato largo. Observemos que nuestra matriz de 
cadenas está indicado directamente en el comando; podríamos haber hecho también 


el programa asi: 
PUBLIC SUB Main() 
DIM sCad AS NEW Stringi] 


sCad.Add(“ls”) 
sCad, Add (“-1") 
EXEC sCad 

END 


Pero el intérprete de Gambas es capaz de reconocer una matriz indicando las cadenas 


entre corchetes y, de esa forma, nos hemos librado de unas cuantas lineas de código. 


Hasta aquí todo lo que hace Gambas es ejecutar el nuevo proceso, pasándole los pará- 
metros, y desentenderse de él. Se ejecuta de forma asíncrona, es decir, el programa 
Gambas sigue su curso sin esperar a que el proceso hijo finalice. Esto puede ser un 
inconveniente si tenemos que sincronizar, o esperar a que el proceso acabe, antes de 
continuar con la siguiente instrucción. Podemos realizar esta tarea de las tres mane- 


ras que vemos a continuación. 


- Palabra clave WAIT 
Si añadimos el flag WAIT a la instrucción EXEC, el programa principal se detendrá 


hasta que el proceso haya finalizado de forma normal o debido a algún fallo. 


Veamos de nuevo el primer ejemplo con pequeñas modificaciones. Vamos a hacer 
un listado de la carpeta (dev, que contiene gran cantidad de archivos. 51 los dos pro- 


cesos se ejecutan de forma asincrona, obtendremos resultados impredecibles: 


PUBLIC SUB Main() 
EXEC [“1s","/dev","-1"] 
PRINT “HOLA DESDE GAMBAS” 
END 


А continuación, lo compilamos y ejecutamos varias veces desde un terminal. 
Observaremos que, como en el listado de más abajo, la frase HOLA DESDE GAM- 


BAS se introduce de forma caprichosa entre el listado generado por el comando ls: 


= ш а 


кыхгыхгых 1 root root 5 jun 28 10:55 mouse -> psaux 


Ccrw-rW-=---= 1 root root 13, 32 jun 28 10:55 mouse0 
drwxr-xr-x 2 root root 60 jun 28 10:55 net 
Ccrw-rw-rw- 1 root root 1, 3 jun 28 10:55 null 
lrwxrwxrwx 1 root root 3 jun 28 10:55 рагро -> 1p0 


HOLA DESDE GAMBAS 

crw-rw---—- 1 daniel usb 99, 0 jun 28 10:55 parportO 
Crw-rw---- 1 root root 10, 62 jun 28 10:55 pktcdvd 
CIW-I-----= 1 root root 1, 4 jun 28 10:55 port 
CrwW======= 1 root root 108, 0 jun 28 10:55 ppp 





Apliquemos ahora el flag WAIT: 


PUBLIC SUB Main() 
EXEC [“1s"”,"/dev","-1"] WAIT 
PRINT “HOLA DESDE GAMBAS" 


Lo ejecutamos cuantas veces queramos: ya no existe el problema inicial, el progra- 
ma Gambas espera a que termine de ejecutarse ls, y después pasa a la siguiente línea 
de código. Hemos conseguido sincronizar la ejecución de dos procesos de forma sen- 


cilla, simplificando nuestro código, ya que de otro modo tendríamos, por ejemplo, 
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que haber volcado el listado en un fichero, esperar en un bucle a que el tamaño del 


fichero dejase de crecer y, a continuación, leerlo y mostrarlo en pantalla. 


El descriptor del proceso 
Habremos observado que al principio de la sintaxis de EXEC, se indica un valor 
opcional VARIABLES, que recibe algo de retorno tras llamar a EXEC. Esta variable 
es un objeto de la clase Process, y lo que se recibe es un descriptor del proceso que 
hemos lanzado. Los objetos de la clase Process tienen una serie de propiedades que 


nos permiten conocer el estado del proceso, así como actuar sobre él, 


Lo que nos interesa ahora es la propiedad State, que refleja el estado de ejecución. 
Cuando se lanza un proceso, el valor de State es Process. Running, es decir, proceso 
en ejecución. Si el programa ya ha terminado, la variable State podrá tomar dos valo- 
res Process.Stopped, detenido, finalizado, o Process. Crashed, si finalizó debido a un 


error grave, habitualmente una violación de segmento. 


Utilizando esta propiedad tendremos la capacidad de sincronizar los dos procesos 
de un modo más potente: podremos realizar algunas tareas en nuestro programa 
Gambas, mientras esperamos a que finalize el proceso auxiliar. Tipicamente, lo que 
haremos será dar algo de feedback o información al usuario de que debe esperar. 
Como ejemplo, vamos a descargar un fichero desde Internet cuando el usuario pulsa 
un botón, y a indicarle que estamos trabajando, que no se ha colgado la aplicación, 


51 no que debe esperar con paciencia, 


Vamos a trabajar con la aplicación auxiliar curl, que es un programa de línea de 
comandos que permite precisamente lo que queremos: descargar un fichero desde 
una URL. 51 no tenemos curl ya instalado, aprovecharemos para hacerlo ahora, ya 
que está disponible para todas las distribuciones GNU/Linux habituales, así como 
para FreeBSD. Para ello, consultamos desde Synaptic, Yast, RpmDrake o nuestro ges- 


tor habitual de paquetes en otras distribuciones. 


Lo que descargaremos es un programa en Gambas llamado RadioGambas, cuyo códi- 


go contiene un buen ejemplo de gestión de procesos y que también podemos estudiar. 


Además, nos sirve para escuchar programas de radio emitidos por Internet, lo cual no 
está mal. La URL es http://gambas.gnulinex.org/radiogambas/RadioGambas-1.0.1.tar.gz, 
aunque podemos consultar en http://gambas.gnulinex.org/radiogambas la existencia 


de versiones más recientes. 


Ahora, vamos a crear un programa gráfico y, en 
él, un formulario, con un botón llamado 


BtnDescarga y una etiqueta llamada LblInfo. 





Figura 1. Valor Inactivo dela La etiqueta tendrá como propiedad Text el valor 


etiqueta y botón Descargar. Inactivo, y el botón tendrá el texto Descargar. 
El código del formulario será el siguiente: 
PUBLIC SUB BtnDescarga Click () 
DIM hProc AS Process 


DIM sUrl AS STRING 


sUrl="http://gambas.gnulinex.org/radiogambas/ 
RadioGambas-1.0.1.tar.gz” 
hProc = EXEC [“curl”, sURL, “-о”, User.Home E 


“/RadioGambas.tar.gz"] 


DO WHILE hProc.State = Process.Running 
SELECT CASE LblIinfo.Text 


LblIinfo.Text = */" 
CASE “/” 

Lblinfo.Text = “-" 
CASE “-" 


Lblinfo.Text = “1!” 
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CASE “Mi” 
LblInfo.Text = “|" 
CASE ELSE 
LblInfo.Text = “|” 
WAIT 0.1 
LOOP 


LblInfo.Text = “Inactivo” 
Message. Info(“Descarga finalizada”) 


Ejecutamos el proceso con los parámetros necesarios para que lo descargue en nues- 
tra carpeta personal con el nombre RadioGambas.tar.gz, y recibimos un descriptor 
del proceso. Seguidamente, entramos en un bucle que se ejecuta mientras el proceso 
está vivo, es decir, mientras el estado del proceso es Process.Running. En dicho bucle 


y 


que se genera la ilusión de un molinillo, con lo que el usuario sabe que algo se está 





cambiamos el valor del texto de la etiqueta entre los valores “-”, *]”,?/” y “\”, de forma 
cociendo por debajo. Con la instrucción WAIT refrescamos la interfaz. Al terminar, 


informamos al usuario y ponemos la etiqueta con su valor original. 


Probamos a modificar el programa eliminando el código del molinillo y ejecutando el 


progroma de forma sincrona, como explicamos con el flog WAIT: 


hProc=EXEC[“curl”, sUrl , “-о", System.Home & 
“*/RadioGambas.tar.gz”] WAIT 


El funcionamiento es igual de efectivo: el programa descarga el fichero en ambos casos, 
pero ahora la interfoz de usuario queda bloqueada durante la descarga, lo que puede 


hacer pensar que nuestro programo se ha colgado y generar algunas llamadas 


inútiles a nuestro servicio de atención al cliente, en el peor de los casos. Es impor- 
tante, por ello, evaluar en qué casos nos conviene usar WAIT y en cuáles es mejor 
informar, de alguna manera, al usuario para que mantenga la calma y las manos 


lejos del teléfono. 


0000 Redirección con TO 
En los ejemplos anteriores con el comando ls, la salida aparecía directamente en 
la consola, lo cual no es útil si queremos procesar la información procedente del 


comando. 
Podemos utilizar la palabra clave TO para conseguir dos propósitos de forma sen- 
cilla: esperar a que el proceso acabe antes de continuar el programa principal y reci- 


bir en una cadena de texto la salida del programa: 


PUBLIC SUB Маіп() 





DIM sCads AS NEW Stringi] 
DIM Buf AS String 
DIM Bucle AS Integer 


EXEC [“1s”, *-1”] TO Buf 

sCads = Split(Buf, “\п") 
sCads . Remove (0) 

sCads. Remove (sCads.Count ~ 1) 
FOR Bucle = 0 TO sCads.Count - 1 


PRINT Left(sCads[Bucle], 10) 


NEXT 
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La instrucción EXEC aguarda hasta que finalice el comando ls, almacenando en un 
buffer la salida estándar del comando, que nos devuelve en la cadena Buf. A conti- 
nuación, procesamos la cadena Buf separándola en lineas con Split, eliminamos la 
primera y última (sin información útil) y mostramos en pantalla sólo la parte del 


listado correspondiente a los permisos. 


La salida de los procesos con varias líneas se puede dividir fácilmente empleando la 


función Split, y utilizando como separador el retorno de carro \n. 


Hasta aquí hemos visto cómo sincronizar los dos procesos, pero aún podemos tener 


más control sobre él. 


Matar un proceso 
Además de las propiedades del objeto Process, éste ofrece un método de gran impor- 
tancia: Kill, el cual permite matar o acabar con el proceso en cualquier momento. 
Supongamos que en nuestro programa anterior, la red es desesperadamente lenta y 
el usuario decide no esperar e interrumpir la descarga. Gracias a Kill podemos incluir 


esa posibilidad en nuestro programa, vamos a ver cómo llevarlo a cabo. 





Añadimos al programa anterior un botón lla- 


metió 


mado BtnCancelar, con texto Cancelar y con el 

flag Enabled a FALSE, para que inicialmente esté кучы 

inactivo, A —— 
Figura 2. BinCancelar 


El nuevo código es el siguiente: Inactivo. 
PRIVATE hCancel AS BOOLEAN 
PUBLIC SUB BtnCancelar Click() 


hCancel=TRUE 
END 


PUBLIC SUB BtnDescarga Click() 


DIM hProc AS Process 
DIM sUrl AS String 


hCancel=FALSE 

BtnCancelar.Enabled=TRUE 
sUrl="http://gambas.gnulinex.org/radiogambas/ 
RadioGambas-1.0.1.tar.gz"” 

hProc = EXEC [“curl”, sUrl, “-o", User.Home & 
“/RadioGambas.tar.gz”] 


DO WHILE hProc.State = Process.Running 
SELECT CASE LblInfo.Text 





CASE “(т 
LblInfo.Text = “/" 
CASE “/" 
Lblinfo.Text = “-" 
CASE *-" 


LblIinfo.Text = “11” 
CASE “41” 
LblInfo.Text = “|” 
CASE ELSE 
Lblinfo.Text = “|” 
END SELECT 
WAIT 0.1 
ТР hCancel=TRUE THEN 
hProc.Kill() 
Message.Warning(“Proceso cancelado”) 
Lblinfo.Text = “Inactivo” 
BtnCancelar .Enabled=FALSE 
RETURN 
END IF 
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LOOP 


Lblinfo.Text = “Inactivo” 


Message. Info(“Descarga finalizada”) 


Disponemos de una variable global, hCancel, para saber si el usuario ha pulsado el 
botón Cancelar. Al iniciar la descarga, ponemos esta variable a FALSE. Si el usua- 
rio pulsa el botón BtnCancelar, dicha variable toma el valor TRUE. En nuestro 
bucle, comprobamos el valor de hCancel y, de ser TRUE, matamos el proceso con 
Kill(), devolvemos la interfaz al estado inactivo, informamos al usuario y salimos 


de la subrutina. 


Aunque ya tenemos sincronización del proceso y podemos acabar con él a nuestro 
antojo, el feedback que hasta aqui hemos proporcionado al usuario es algo pobre: el 


molinillo no nos sirve para conocer cuál es el estado real de la descarga, ni hacernos 





idea de cuánto más habremos de esperar. 


Sin embargo, curl está emitiendo un informe por la salida estándar de errores stderr 
(о texto impreso por la consola, si no estamos familiarizados con ese término), que 


podemos aprovechar. 


00000 Redirección de la salida estándar de errores 
51 estamos familiarizados con el lenguaje С, los mensajes se envian a la salida están- 
dar con la función printf() y a la salida estándar de errores mediante perror(), ambas 


incluidas en la librería estándar de С (glibc en sistemas GNU/Linux). 


Los procesos pueden enviar texto a la consola por dos vías, la primera es utilizando 
la salida estándar y, la segundo, la salida estándar de errores. Los dos caminos sepa- 


rados se utilizan para diferenciar qué tipos de mensajes se envían. Por la salida 


estándar [stdou!) se suele emitir información útil. Como veremos en el siguiente apor- 
tado, el programa сиг! emite el fichero recibido por lo salida estándar salvo que indi- 
quemos expresamente el fichero dónde depositarla. Por la salida estándar de erro- 
res [stderr] se emiten mensajes de estado, de advertencia o de error. Curl aprovecha 
esta salida para indicar el estado de la descargo o para informar de un error en el 


intento de conexión. 


Centrándonos más en curl, si aplicamos el parámetro -#, el programa va mostran- 
do una barra de progreso formada por el símbolo # (almohadilla o sostenido) y un 


indicador del tanto por ciento descargado. 


Gambas permite recoger el contenido tanto de la salida estándar como de la salida 


estándar de errores, si aplicamos el flag FOR READ a la hora de ejecutarlo. 


Cuando el proceso hijo envía una cadena por la salida estándar de errores (llaman- 
do a perror(), si está escrito en С), nuestro programa Gambas recibirá un evento 


Error() procedente de la clase Process. La sintaxis de este evento es: 


PUBLIC SUB Process Error(sError As String) 


En la cadena sError recibiremos el mensaje de error, o informativo, procedente del 
proceso hijo. Vamos entonces a modificar el programa para recibir el porcentaje de 


descarga y representarlo en la etiqueta, en lugar del molinillo. 
PRIVATE hCancel AS Boolean 


PUBLIC SUB BtnCancelar Click() 
hCancel = TRUE 
END 
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PUBLIC SUB Process Error(Err AS String) 


DIM sCad AS String[] 


Err = Trim(Err) 
sCad = Split(Err, * ”) 
LblInfo.Text = sCad[sCad.Count - 1] 


PUBLIC SUB BtnDescarga Click() 


DIM hProc AS Process 


DIM sUrl AS String 


hCancel = FALSE 

BtnCancelar.Enabled = TRUE 
sUrl="http://gambas.gnulinex.org/radiogambas/ 
RadioGambas-1.0.1.tar.gz” 

hProc = EXEC [“curl”, , “-о”, User.Home E 


“/RadioGambas.tar.gz", “-#"] FOR READ 


DO WHILE hProc.State = Process .Running 

WAIT 0.1 

IF hCancel = TRUE THEN 
hProc.Kill() 
Message .Warning (“Proceso cancelado”) 
LblInfo.Text = “Inactivo” 
BtnCancelar Enabled = FALSE 
RETURN 

END IF 


LOOP 


Lblinfo.Text = “Inactivo” 


Message. Info(“Descarga finalizada”) 


En esta ocasión ejecutamos el programa curl con el parámetro adicional +, Cada 
vez que nuestro programa recibe un evento Error de Process, éste se trata en nues- 
tro código: tomamos la cadena, eliminamos con Trim() los posibles caracteres espe- 
ciales de control que curl usa para mantener el cursor siempre en la misma línea, de 
modo que dé la impresión que la barra de progreso avanza (se trata de los llamados 
caracteres ANSI de control), separamos la cadena en varias subcadenas tomando el 
carácter de espacio como base y nos quedamos con la última subcadena, que es la 


que contiene el dato del porcentaje, para representarla en la etiqueta. 


ooo Redirección de la salida estándar 

Supongamos ahora que no deseamos guardar un fichero, sino mostrar directamen- 
te su contenido en pantalla. Por ejemplo, en la URL http://www.gnu.org/licenses/gpLtxt, 
disponemos de un fichero que, en texto plano, contiene la licencia GPL original 


en inglés, 


La primera opción sería guardar el fichero y, una vez finalizado el proceso, leerlo y 
representarlo en pantalla, pero de este modo complicamos el código ya que tenemos 
que crear un fichero en alguna ubicación (por ejemplo, /tmp), leerlo y luego borrar- 
lo para no dejar restos en el disco duro. Como indicamos en el anterior apartado, el 
contenido de la salida estándar también puede ser leído y curl envía el fichero a la 
salida estándar salvo que, como en nuestros ejemplos anteriores, especifiquemos un 
fichero donde depositar los datos recibidos. La sintaxis del evento generado por la 
recepción de datos procedentes de la salida estándar del proceso, es algo diferente de 


a de los erorres o informativos que vimos antes: 


PUBLIC SUB Process Read() 


END 


єп ge procesos 
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En este caso no hay ninguna cadena para recibir la información, por el contrario, 
cada objeto Process se comporta como un flujo o stream, lo que en otras palabras 
significa que podemos trabajar con él del mismo modo que haríamos con ficheros 


abiertos con OPEN, pudiendo utilizar, por tanto, READ o LINE INPUT. 


Hay que recordar también que Gambas provee una palabra clave, LAST, que dentro 
del evento representa de forma genérica al objeto que lo generó. Podemos, enton- 
ces, leer el contenido de la salida estándar del proceso utilizando LAST como pará- 
metro de las instrucciones relacionadas con lectura y escritura de procesos. Por ejem- 


plo, para leer una línea completa, haríamos: 
PUBLIC SUB Process Read() 
DIM sCad AS STRING 


LINE INPUT $LAST,sCad 
PRINT sCad 


Para nuestro programa, añadiremos una caja 
de texto (TextArea), llamándola TxtLicencia, 
con su texto inicial en blanco y en ella pondre- 
mos el contenido del fichero gpl.txt, conforme 
lo recibimos. 


лаге 


El código es el siguiente: 


Descarga! 





PRIVATE hCancel AS Boolean Figura 3. Cajo de texto 
Txtlicencia. 
PUBLIC SUB BtnCancelar Click() 
hCancel = TRUE 


PUBLIC SUB Process _Read() 
DIM sCad AS String 


LINE INPUT FLAST, sCad 
TxTLicencia.Text = TxTLicencia.Text £ sCad £ “An” 


PUBLIC SUB Process Error(Err AS String) 
DIM sCad AS String[|] 


Err = Trim(Err) 
sCad = Split(Err, * “) 
LblIinfo.Text = sCad[sCad.Count - 1] 


PUBLIC SUB BtnDescarga Click() 
DIM hProc AS Process 


TxtLicencia.Text = *” 

hCancel = FALSE 

BtnCancelar.Enabled = TRUE 

hProc = EXEC [*curl”, “http://www.gnu.org/licenses/ 
gpl.txt"”, “-#”] FOR READ 


DO WHILE hProc.State = Process.Running 
WAIT 0.1 
IF hCancel = TRUE THEN 
hProc.Kill() 
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Message .Warning (“Proceso cancelado”) 
LblInfo.Text = “Inactivo” 
BtnCancelar.Enabled = FALSE 

END IF 


LOOP 


Lblinfo.Text = “Inactivo” 


Message.Info(“Descarga finalizada”) 


En el evento Read() leemos una línea y la añadimos al contenido previo de TxtLicencia, 


más un retorno de carro para separar cada línea. 


| Evento КІЩ) y la propiedad Value 
Además del método КҮЙ), la clase Process emite un evento Kill() cuando un proce- 


so ha finalizado, sea de forma normal o por un error. La sintaxis de dicho evento es: 


PUBLIC SUB Kill() 


END 


Hasta ahora, en nuestro gestor de descarga hemos esperado en un bucle a que el pro- 
ceso acabe, pero podemos crear una estructura más elegante, más adaptada a la pro- 
gramación orientada a objetos, valiéndonos de dicho evento: en lugar de esperar en 
un bucle, aguardaremos tranquilamente y sin hacer absolutamente nada en nuestro 
programa principal hasta recibir el evento Kill(), bien sea porque la descarga ha fina- 


lizado, bien sea porque el usuario ha decidido cancelar el proceso: 


PRIVATE hCancel AS Boolean 
PRIVATE hProc AS Process 


PUBLIC SUB BtnCancelar Click() 


hCancel = TRUE 
ҺРгос.Кі11() 


PUBLIC SUB Process_Error(Err AS String) 
DIM sCad AS String[] 


Err = Trim(Err) 
sCad = Split(Err, “ “) 
LblInfo.Text = sCad[sCad.Count - 1] 


ЕР 
RS 


PUBLIC SUB Process_Kill() 


IF hCancel = TRUE THEN 

Message. Warning (“Proceso cancelado”) 
ELSE 

Message. Info(”Descarga finalizada”) 
END IF 


LblInfo.Text = “Inactivo” 
BtnCancelar .Enabled = FALSE 


PUBLIC SUB BtnDescarga_Click() 


DIM sCad AS String 
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TxtLicencia.Text = “" 

ҺСапсе1 = FALSE 

BtnCancelar.Enabled = TRUE 

hProc = EXEC [“curl”, “http://ww.gnu.org/licenses/ 
aqpl.txt", “-$”] FOR READ 


Hemos cambiado la declaración de hProc de la función BtnDescarga_Click() al ini- 
cio de nuestro formulario, para que sea accesible también desde el evento 
BtnCancelar_Click(). Ahora lanzamos el proceso у ya no esperamos en un bucle. Si 
el usuario decide cancelar la descarga, matamos el proceso en el mismo evento 


BtnCancelar_Click(). 


Tanto si el programa termina normalmente como debido a una cancelación, aprove- 
chamos el evento Process_Kill() para informar al usuario y devolver la interfaz a su 


estado inicial (con el botón BtnCancelar deshabilitado, y la etiqueta marcando Inactivo). 


El resultado final: menos gasto de recursos (el programa principal no ha de ejecu- 
tar el bucle constantemente), menos lineas de código y mejor estructuración de todo 


el proceso. 


Por otro lado, la mayor parte de los programas de consola (у gráficos) devuelven al 
sistema un código de error cuando finalizan. La costumbre es que se devuelva un cero 


si todo Ме bien y otro valor cuando algo falló, 
Desde la consola podemos hacer una prueba ejecutando en una ventana de termi- 
nal estas dos órdenes consecutivas: 


$ ls -l /dev 
5 echo 5? 


Al ejecutar echo $? obtendremos un cero. La shell del sistema almacenó el último 
código de error disponible en la variable $? y, a continuación, lo hemos mostrado 


en pantalla: todo fue bien. Ahora ejecutamos la siguiente orden: 


$ Is -1 /fichero/que/no/existe 
5 echo $? 


En esta ocasión obtendremos un sels, un código de error que en el caso del coman- 
do ls implica que la ruta no existia (siempre y cuando no haya, por alguna extraña 
razón que desconozcamos, un fichero en nuestro sistema cuya ruta sea 


/lfichero/que/no/existe). 


Si curl no puede acceder a la URL, por cualquier circunstancia, devolverá un valor dis- 
tinto de 0. Nosotros podemos leer en nuestro código ese valor, mediante la propiedad 
Value, e informar al usuario del error, A continuación, modificamos el código del pro- 


grama anterior (página 142 en adelante), de forma que el evento Kill quede así: 


PUBLIC SUB Process Kill() 


IF LAST.Value<>0 THEN 
Message.Error (“Error en la descarga”) 
ELSE 
ТЕ ҺСапсе1 = TRUE THEN 
Message.Warning(“Proceso cancelado") 
ELSE 
Message. Info(“Descarga finalizada”) 
END IF 
END IF 


LblIinfo.Text = “Inactivo" 
BtnCancelar.Enabled = FALSE 
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Probemos el programa desconectando el módem de Internet, desenchufando el cable 
de red o deshabilitando la red de nuestro sistema, Observaremos que ahora pode- 


mos determinar el éxito o fallo de la descarga, además de su cancelación. 


Los programas, además de emitir información a través de stdin y stderr, la pueden 
recibir a través de la consola, según el usuario teclea órdenes. Esta recepción se rea- 
liza mediante la entrada estándar o stdin, y si tenemos conocimientos de C sabre- 
mos que podemos utilizarla con funciones como scanf) o getchar(). Con Gambas, 
podemos emplear el flag FOR WRITE para indicar al intérprete que estamos intere- 
sados en escribir datos para el proceso hijo. Una vez lanzado el proceso de este modo, 
podemos usar las funciones normales de escritura de archivos con el descriptor del 
proceso (PRINT, WRITE). 


Supongamos un programa con un área de texto (TextArea) llamada TxtTexto, en la 
que escribimos cualquier cosa, y deseamos conocer el número de líneas (separadas con 
retornos de carro), que hemos escrito. Podemos, para ello, usar el comando wc (sig- 
nifica Word Counter y no otra cosa), con el parámetro -l (número de líneas). En nues- 
tro ejemplo, llamaremos al programa, escribire- 


mos el contenido de TxtTexto al proceso, y ==. 
ШЕ. | үп. [чат Galo de Агаба, ест de Cámara del Muy ? 
recibiremos el resultado por la entrada estándar. || prre eener. un tas gum tanien en wu coreo 
| | КЕРЕ |" Жее ао ин) {Пг нган {най de la калса 
Puesto que vamos a leer y escribir, podemos com- fj somrene vor maus as Corvantos Saavadra; tasatan 
4. cual игит ochóría y ires pliogos. was al dich prendio 


binar los flags READ y WRITE. Para ello, creamos | monta al dicho libra dociertas y noventa тагала гід. p | 


A medio. en que se Һа do verdes en papal: y сінагогу 


Кее ын sm i -Aite Arr in da кый ааа лабан Р. аз 


un proyecto gráfico соп un botón BtnContar, con 
el texto Contar, y un TextÁrea llamado TxtTexto, 


Coin 





con el texto en blanco inicialmente para que des- ЖШ Figura А. Proyecto соп botón 


pués escribamos un texto. Contar y área de texto TxtTexto. 


PRIVATE hProc AS Process 


PUBLIC SUB Process_Read() 


DIM sCad AS String 


LINE INPUT #hProc, sCad 
Message(“El texto tiene : “ £ sCad £ ” líneas”) 


PUBLIC SUB BtnContar Click() 


hProc = EXEC ["wc", *-17] FOR READ WRITE 
PRINT fhProc, TxtTexto.Text 
CLOSE #hProc 


п la función BtnContar_Click(), ejecutamos el programa indicando al intérprete 
ue deseamos acceso de lectura y escritura al proceso, escribimos en éste el conte- 


ido de la caja de texto y, a continuación, ejecutamos CLOSE sobre el proceso. 


eguidamente, ejecutamos мс -l desde una terminal de linea de comandos. 
Ibservaremos que podemos ir escribiendo en el proceso todo lo que queramos. Asi, 


leamos varias líneas y después pulsamos a la vez las teclas Control + D. 


s entonces cuando nos devuelve el número de lineas que hemos escrito. Al man- 
зг el carácter especial CTRL+D, estamos indicando al proceso que hemos cerra- 
y el flujo de datos y, por tanto, procede que él compute lo recibido y devuelva el 


sultado. 


uando en el programa Gambas ejecutamos CLOSE sobre un descriptor de fiche- 
, el resultado es similar: se cierra la redirección entre la salida estándar del proce- 
hijo y nuestro proceso principal, con lo cual el primero queda informado de que 


¡recibido todos los datos, 


resto del programa es trivial: en el evento READ recibimos la cadena que contie- 


el número de líneas y lo mostramos al usuario en un mensaje. 
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00000 Notas finales sobre el objeto Process 
El objeto Process tiene un método Signal() usado por el propio depurador de Gambas. 
Permite enviar señales al proceso en curso, pero su uso no es aconsejado, ya que inter- 


fiere con el resto del código del intérprete. 


El objeto dispone también de una propiedad Id, que es un handle o descriptor del 
archivo. Si conocemos С о C++, se trata del identificador de proceso o PID del pro- 
grama hijo que se obtiene tras una llamada a fork(), que es el modo de crear nuevos 
procesos en sistemas UNIX. Este valor puede servir para buscar el proceso, por ejem- 
plo, ejecutando ps -le, variar su propiedad con nice, o utilizarlo junto con posterio- 
res llamadas a funciones de C (veremos en otro capitulo cómo hacerlo desde Gambas) 


para controlar dicho proceso. 


Los eventos generados al trabajar con procesos son estáticos. Habremos observado 
que en los sucesivos ejemplos se ha indicado Process_Read y Ргосеѕѕ КПІ. Si tene- 
mos varios procesos en ejecución, siempre podemos diferenciar qué proceso ha gene- 


rado el evento mediante la palabra clave LAST y actuar en consecuencia: 


PRIVATE hProcl AS Process 
PRIVATE hProc2 AS Process 
PUBLIC SUB Process Кеаа() 

IF LAST=hProcl THEN ... 


SHELL es similar a EXEC, pero en este caso lanza la shell o intérprete de coman- 
dos del sistema, habitualmente BASH, en las distribuciones GNU/Linux y le pasa 
el comando que le indiquemos. Esto permite, por ejemplo, dar órdenes al sistema 


tales como export o cd, que son parte de BASH y no comandos independientes. 


También da vía libre al uso de tuberías | y operadores de redirección como > о 2> 


entre otras características de la shell. La sintaxis de SHELL es la siguiente: 


[Variable = ] SHELL Command [ WAIT ] [ FOR ( READ | 
WRITE | READ WRITE ) 


Es muy similar a la de EXEC, pero en este caso Command es una cadena de texto y 
no una matriz de cadenas, ya que este valor se pasa directamente a la shell del siste- 
ma que, dependiendo de sus características, interpretará los espacios y otros símbo- 
los especiales de un modo u otro. Queda pues, por tanto, como trabajo para el pro- 
gramador, añadir el formateo adecuado para que la shell interprete la orden 


correctamente. 
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A grandes rasgos, un sistema de bases de datos es una aplicación 

que permite almacenar y consultar información de forma sencilla, Casi todas 

las bases de datos actuales posibilitan la interacción con el usuario o programador, 

a través de un lenguaje llamado SQL. Es importante, antes de proceder a trabajar con 
una base de datos, conocer este lenguaje, mediante el cual se consultan y modifican 


datos, además de permitir crear la estructura de la misma (tablas, campos, etc.). 


Queda fuera del alcance de este libro explicar el lenguaje SQL, si bien se indican algu- 


nas nociones básicas a lo largo de los ejemplos expuestos. 
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la necesidad de la consulta e ingreso de datos desde diversos puestos de trabajo de 
forma simultánea. Aquí tendremos que estudiar qué servidor de bases de datos es 
el más adecuado para nuestro sistema, En el entorno de software libre, las dos 
opciones más probadas y de mayor prestigio son MySQL y PostgresQL 
(http://www.postgresql.org/). Ambos sistemas poseen, además, versiones con 


soporte comercial, 


зазна 5. 2 Bases de datos y Gambas 


Gambas tiene estructurado el acceso a bases de datos mediante drivers. Éstos son 
módulos de código escritos por diversos programadores especificamente para comu- 
nicarse con una base de datos determinada, lo que permite acceder a distintas bases 
utilizando el mismo código. Como veremos más adelante, basta con especificar el 
tipo de bases de datos a utilizar, y el resto del código funcionará, posiblemente, sin 


modificaciones, con independencia de la base de datos utilizada. 


Gambas puede manejar varios tipos de bases de datos. Dispone, en este momento, 
de tres drivers específicos: Sqlite, MySQL y Postgres. Además cuenta con un driver 
ODBC, el cual es un estándar para comunicar aplicaciones con bases de datos. Por 
lo tanto, podemos acceder con Gambas a cualquier base que soporte dicho están- 


dar, Esto permite entrar, por ejemplo, a bases de MS SQL Server o Firebird, 


A la hora de elegir un driver u otro, tendremos presente que los drivers específicos 
están optimizados y ofrecen una mayor velocidad de transferencia de datos. Sólo 


cuando no dispongamos de uno específico, usaremos el ODBC, 


Adentrándonos en la estructura de Gambas para bases de datos, cualquier aplica- 
ción que use esta característica, necesitará el componente gb. db como dependencia. 
Los drivers para cada sistema de bases de datos son también componentes, pero el 
programador no ha de marcarlos como dependencias. Una vez que indiquemos a 
qué sistema nos vamos a conectar, el intérprete de Gambas tratará de cargar el dri- 


ver específico, 


5 Gestión de bases de Halos 








Estos componentes especiales son: 
e gb.db.sqlite: Sqlite versión 2 o anterior. 
* gb.db.sqlite3: Sqlite versión 3 o posterior. 
* 9b.db.mysql: MySQL. 
e gb.db.postgres: PostgreSQL. 
e 9b.db.odbc: genérico ODBC., 


5. З Gambas-database-manager, 
el gestor gráfico 


Antes de explicar el modelo de programación para bases de datos de Gambas, vamos 
a aprender a utilizar el Gestor de Bases de Datos, que es una aplicación escrita en 
este programa, la cual dota al entorno gráfico de desarrollo de una herramienta para 


administrar, de forma sencilla, múltiples bases de datos. 


El Gestor de Bases de Datos escrito en Gambas, es un programa extenso y es Software 
Libre. Por tanto, el estudio de su código nos puede ayudar a resolver dudas puntuales 


que surjan a la hora de usar el componente gb.db. 


Crear una base 
Vamos a aprender a crear nuestra propia base. Para ello desarrollamos un proyecto 
nuevo, o bien abrimos cualquiera que ya tengamos en nuestro equipo. Acudimos al 
menú Herramientas y seleccionamos el Gestor de Bases de Datos. También pode- 
mos ejecutarlo directamente desde la consola, con el comando gambas-database- 


manager. 


Tras pulsar la opción correspondiente, nos preguntará una contraseña. Dicha con- 


traseña se emplea para almacenar encriptados los datos de usuarios y contraseñas que 


deseemos gestionar desde este programa, рага evi- 


Please enter the key siring used for O: ы | | суз 
Soni дарыда а <, tar que otro usuario pueda leerlos con facilidad 


consultando los ficheros del entorno Gambas. La 
contraseña que introduzcamos habrá de tener 8 


caracteres como mínimo, y se preguntará cada vez 





Figura 1. Introducción de que arranquemos el programa, para desencriptar 


contraseña. contraseñas ya almacenadas en sesiones previas. 


Tras este paso, aparece el gestor en sí, que en principio está vacío, ya que no hemos 


configurado ninguna conexión. 
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Figura 2. Gestor de bases de datos de Gambas, 


E tupwa saydi o MIA Pulsamos en el menú Servidor y elegimos la 
> Buscar servidores de bases de datos | 

Cerrar todo opción Nuevo servidor... Hemos de especifi- 
(O Eliminar todos los servidores 
@ salir | car, a continuación, los datos relativos a la 





conexión que deseamos establecer (Figura 4). 


El primer dato, Tipo, se refiere al driver que emple- 
aremos: sqlite, sqlite3, mysql, postgres u odbe. Host 
es el nombre del equipo o dirección ЇР donde resi- 
de el servidor de bases de datos. Como excepción, 


para las conexiones sqlite el Host no será otra cosa 





que la carpeta donde se encuentran alojadas las 
Figura 4, Datos de la bases de datos, es decir, una ruta absoluta dentro 
conexión, del sistema de archivos, como puede ser /home/usua- 


rio/bases. 
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El tercer y cuarto dato son el nombre de Usuario y la Contraseña para acceder al sis- 


tema de bases de datos, que determinan los distintos privilegios del usuario. 


En el caso excepcional de Sqlite, las bases de datos son simplemente archivos, por lo 
que los permisos vendrán definidos por los privilegios de un usuario y su grupo en 
el sistema de archivos (lectura y/o escritura). No procede en ese caso, por tanto, espe- 


cificar los datos de usuario/contraseña. 


Supongamos dos escenarios básicos. En el primero trabajaremos sobre un servi- 
dor MySQL en nuestro equipo, con un usuario llamado admin] y una contraseña 
para dicho usuario. En Tipo indicaremos el driver mysql; como Host, al tratarse 
del propio equipo, se puede indicar o bien localhost o 127.0.0.1, que es una direc- 
ción ЇР que siempre apunta al propio PC. Introduciremos, después, los datos de 


nombre de Usuario y Contraseña. 


En cuanto а la instalación y administración de MySQL, es muy recomendable consul- 
tar la documentación disponible en la propia página de esta bose de datos: 


http://dev.mysql.com/doc/. 


En el segundo escenario, con el que trabajaremos en adelante, crearemos una base 
Sqlite. Lo primero que tenemos que hacer es abrir una carpeta nueva para almace- 
nar el fichero que contendrá la base de datos. Para ello, desde línea de comandos, y 


en nuestra carpeta personal, podemos hacer: 


También podemos crear la carpeta con Konqueror o 


Nautilus, si así lo preferimos, 





Ahora rellenaremos los datos de conexión, tal y como Figura 5. Conexión a una 


aparece en la Figura 5. base Sglite. 


Podremos seleccionar sglite o sqlite3 dependiendo de los gestores instalados еп el sis- 


tema. Para nuevos desarrollos es recomendable disponer de la versión 3 o posterior, 


al estar más optimizada. Pero si tenemos que programar para sistemas antiguos (por 


ejemplo, un cliente que disponga de RedHat 7.0), tal vez debamos plantearnos el usar 


sqlite en sus versiones anteriores, a fin de no tener que compilar e instalar nuevas libre- 


rias en el sistema, cuestión que a veces el cliente rechaza o impone. 
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Ш Figura б. Localización del nuevo 


servidor. 
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(Crear base... 
+ Crear usuario... 
X Cerrar 
B Eliminar 


E Figura 7. Menú contextual del 


servidor 










Una vez incluidos los datos, pulsamos OK y el 
nuevo servidor quedará reflejado en el árbol de 
la izquierda del gestor. Si creamos distintos ser- 
vidores, (distintas carpetas, o bien algunos 
apuntando a servidores MySQL o Postgres, por 


ejemplo), se irán añadiendo al árbol. 


Para conectarnos, haremos doble clic con el 
botón izquierdo del ratón sobre el servidor (o 
el botón derecho, si se es zurdo y se tiene así con- 
figurado el ratón), y después un clic con el botón 
derecho para que se muestre el menú contex- 


tual de opciones (o izquierdo, para los zurdos). 


a opción Crear usuario... tiene sentido si trabajamos sobre un sistema servidor de 


ases de datos (mysql o postgres), y tenemos permisos de administración sobre el ser- 


idor. El uso de esta opción es trivial: se pregunta el nombre de usuario y contrase- 










Crear base 


Servidor homnadanel Bases Гааге) 


I Figura 8. Opción Crear base. 


ña y si a su vez tiene permisos de administra- 
ción; se pulsa OK para añadirlo. Más delante 
veremos algún ejemplo concreto. Seleccionamos 
la opción Crear base. Nos preguntará el 
Nombre de la base, que en el caso de Sqlite será 
el nombre del archivo dentro de la carpeta que 


previamente indicamos, el cual alojará la base 
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de datos que vamos a crear. Señalamos como nombre [= E home/danielBases (sqlite) 


ME prueba: 









pruebas y pulsamos OK. Ya disponemos de una base 


vacía, donde hemos de crear las distintas tablas que 





Figuro 9. Base pruebas. 


alojarán los datos. 


Crear una tabla 


S/home/daniel/Bases [sqlte) 


+ – 


Para crear una tabla, como еп el caso del servi- 












us EL Crear... 
[® Crear tabia.. 


$0L Petición 501... 

w Utilizar codificación (LITF-8) 
Ba Copiar 

(1 Borrar 

T Bolrescar 

K cema 


dor, hacemos doble clic para abrir la base y pul- 
samos el botón derecho para obtener su menú 


contextual (Figura 10). 





Seleccionamos Crear tabla... Los datos que se pre- 
guntan son el Nombre de la tabla (ponemos datos Figura 10. Menú contextual 


en nuestro ejemplo), y el Tipo. de la base. 


Este segundo parámetro sólo tiene sentido en 


determinados sistemas servidores, como MySQL, 





en los cuales se puede indicar varios tipos de 


tablas, optimizadas para una u otra tarea con- 





creta. Salvo que tengamos necesidades especia- 
les, podemos dejar los datos con los valores por Ш Figura 11. Ventana para 


defecto. creor una tabla, 


Una vez ршѕетоѕ sobre el botón OK, el gestor aparece en el lado derecho mostrán- 
donos la estructura actual de nuestra tabla datos (vacía), para que añadamos la infor- 


mación a los campos que aparecen. 


Por tanto, vamos a manejar primero la pestaña Campos, con la que crearemos una 


tabla para almacenar datos de los libros de nuestra propia colección. 


Los campos serán: un identificador único, un número que a su vez pegaremos en el 
lomo (forrado) para buscarlo rápidamente, el título del libro, el autor, la fecha de 
adquisición, el precio que pagamos por él y una breve descripción. 
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Figura 12. Gestor de la tabla. 


Hemos de pensar en los tipos de datos que almacenaremos en cada campo: 


* Identificador: un número entero. 


« Titulo: una cadena de texto. 


* Autor: una cadena de texto. 





* Fecha; un dato tipo Fecha. 


* Precio: un número real. 


* Descripción: una cadena de texto. 


Pensar en los tipos de datos nos evitará, posteriormente, problemas a la hora de hacer 
búsquedos, ordenar los datos por distintos parámetros, así como a reducir el tamaño 
de la base de datos y optimizar la velocidad de consulta. Este paso es muy importan- 


le y merece la pena dedicarle un tiempo. 


También hemos de delimitar la clave principal, que es única y sirve para identificar 
cada registro almacenado. La clave única estará formada por varios campos o uno 


sólo. En nuestro caso se trata del campo referido al número de identificador. 
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Algunos programadores en otros entornos solían diseñar tablas sin claves únicas, dado 
que algunos sistemas de bases de datos lo permiten. Como resultado se generaban 
tablas propensas a errores, con datos duplicados, lentas de manejar y muy difíciles de 
gestionar, conforme pasaba el tiempo y los datos aumentaban, corrompiéndose a veces 
por duplicaciónes. Jamás se debe trabajar de este modo: se rompe toda ventaja que 
puede aportar una base de datos relacional, y se hipoteca la futura expansión y man- 


tenimiento de una aplicación. 


Para crear el primer campo, modificaremos el que el propio gestor ha creado como 
sugerencia, indicando como Nombre ¡identificador y Tipo Integer (es decir, número 


entero). Dejaremos los demás campos en blanco. 


home/daniellBases (sqlite) - pruebas - datos 
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Figura 13. Creación del campo Identificador. 





Para el resto de campos, pulsamos el botón con el icono que representa una hoja en 
blanco, y que sirve para añadir un nuevo campo. 51 nos movemos por los distintos 
iconos, aparece un texto de ayuda que nos indica el significado de cada uno. 
Conforme los creemos, rellenamos los datos con estos valores: 

* Nombre: titulo; Tipo: String; Longitud: 40; Valor por defecto: (nada). 


· Nombre: autor; Tipo: String; Longitud: 40; Valor por defecto: (nada). 


· Nombre: fecha; Tipo: Fecha; Longitud: (nada); Valor por defecto: (nada). 


* Nombre: precio; Tipo: Float; Longitud: (nada); Valor por defecto: (nada). 


* Nombre: descripcion; Tipo: String; Longitud: 200; Valor por defecto: (nada). 


La interfaz deberá de quedar con este aspecto: 





mo = жыша ж. ш == 


O home/danielíBases (sqlite) - pruebas - datos [modificado] х 


СЕРР 
Campos | ¿A Índices | Datos 





e 













DX? 

Nombre Tipo Longitud Walor por defecto 
(С) identificador Integer 

titulo String 40 

autor string 40 









¡fecha Fecha 





precio Float 
descripcion String 


Figura 14. Aspecto final de la creación de los campos. 






El dato Longitud se aplica sólo a los campos de tipo String, y se refiere al número 
de caracteres que se pueden almacenar. Conviene ajustar lo más posible el valor 
para no hacer crecer a la base de datos en demasía y, por tanto, hacer más lentas 
las búsquedas y modificaciones posteriores. Aunque sólo guardemos un carácter 
en un campo de un registro dado, los sistemas de bases de datos habituales, guar- 
dan todo el tamaño indicado (en nuestro caso 40 caracteres para el título y el autor, 
о 200 рага la descripción). 51 multiplicamos estos valores por un gran número de 
registros, comprobaremos rápidamente el ahorro que se consigue con un diseño 


racional previo de los tamaños. 


La longitud máxima de un campo de texto suele ser 200 o 255 caracteres, en muchos 
sistemas de bases de datos. Por ello, debemos tener en cuenta los tamaños máximos 
si planeamos cambiar de gestor de bases de dotos en un futuro, sobre una aplicación 


ya desarrollada. 


5, Gestión de bases de datos 
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Cuando creamos un nuevo registro, el campo se rellena, por defecto, con un valor, 
que sólo modificaremos para casos específicos. Esto es útil si un dato se repite muchas 


veces, y sólo cambia ocasionalmente. 


Como hemos podido observar, Gambas realiza una abstracción de los tipos de datos, 
permitiendo elegir entre unos muy concretos: Boolean (dos valores, “si” о *no”), 
Integer (número entero), Float (número real), String (cadena de texto) y Fecha 
(fecha/hora). Estos tipos abstraen los de la propia base de datos, (algunos sistemas 
contemplan, por ejemplo, “entero largo”, “entero corto” o “entero de un byte”) asi- 
milándolos a los de Gambas y simplificando la transición entre un sistema de bases 


de datos y otros. 


Si existe necesidad de optimizar los tipos de datos para un sistema concreto, las tablas 
se deben crear con las herramientos propias de ese sistema de bose de datos, en lugar 
de la herramienta genérica de Gambas, pero a cambio se pierde portabilidad. Es 
decir, será más dificil cambiar de sistema gestor en el futuro, si es necesario por el 
aumento de volumen de datos, tecnología o velocidad requeridas. En general, no es 


necesario recurrir a optimizaciones de este nivel, salvo en casos muy concretos. 


En cuanto a la clave principal, podemos observar en la Figura 14 que el primer campo, 
identificador, tiene una llave amarilla marcada. Podemos pulsar sobre el primer ele- 


mento de cada campo para que aparezca o desaparezca dicha llave. 


La suma de todos los campos que estén marcados con la llave, conforma la clave 
principal o identificador único de cada registro. Aunque en nuestro caso, sólo tene- 


mos uno, 


Estos datos, hasta ahora, se encuentran sólo en fase de diseño. Para grabar la nueva 
tabla en la base de datos, pulsaremos el icono que tiene el símbolo de un floppy (dis- 
quete). A partir de este momento, la tabla aparece realmente en la base, lista para 


añadir datos o consultarlos. 


Los nombres de campos usados en el ejemplo no tienen acentos. En general, no se debe 
utilizar otra cosa que coracteres del alfabeto inglés y números. Usar símbolos como 
caracteres con tilde, la eñe o la cedilla, separadores tales сото el ampersand (4) о un 
espacio en blanco, pueden dar muchos dolores de cobeza al programador en el futu- 
ro, tanto pora una simple consulta de datos, como para la migración futura a otro sis- 


tema de bases de datos. Es una mala política de diseño, hay que evitarlos siempre. 


Una vez creada la tabla, podemos editar los campos, añadir o quitar, siguiendo el 


mismo procedimiento. 


Ahora podemos pasar a la siguiente pestaña (Figura 15), Índices. Un índice sirve al 
gestor de bases de datos para organizar la información, de forma que más tarde cada 
consulta se ejecute lo más rápido posible. Por ejemplo, puede que deseemos hacer 
frecuentemente búsquedas indicando el autor, para saber los datos de todos sus libros 


que tenemos en nuestra colección. 





Para nuestra pequeña base de ejemplo no utilizaremos índices, pero su gestión desde 
este programa es trivial: basta con que los creemos, eliminemos o modifiquemos del 
mismo modo que hemos hecho para crear los campos de las tablas. Cada índice 
puede estar formado por uno o más campos, es decir, puede comprender, por ejem- 
plo, el nombre del libro + el autor. A tal efecto, la interfaz proporciona dos botones. 
El primero, Nuevo índice, sirve para añadir un índice a la tabla. Si está formado sólo 
por un campo, basta con que indiquemos el nombre de ese campo. Si hay varios, se 
pulsará el botón nuevo campo de indice, tantas veces como sea necesario, para indi- 


car, a continuación, los demás campos que conforman ese indice. 


El otro dato de relevancia es el valor Unique, el cual determina si pueden existir o 
no dos registros en los cuales los datos de los campos pertenecientes a un índice sean 
iguales, Por ejemplo, en una tabla que contiene datos de CDs, puede interesarnos 
tener un índice creado a partir de los campos discografica y fecha. Y puede haber 


varios discos editados por esa discográfica en un mismo año, por tanto marcaremos 
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el valor Unique a FALSE, para poder introducir los datos de varios discos cuyos cam- 


pos sean coincidentes. 


Por el contrario, en una base de datos de alumnos puede interesarnos un índice que 
comprenda el DNI y su nombre. En este caso, no hay dos personas con el mismo 
DNI, luego ese índice es único, y marcaremos la casilla Unique con el valor TRUE 


para proteger a la tabla de datos duplicados. 
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Figura 15. Creación de Índices. 





00000 Gestionar datos de una tabla 


La última pestaña de la interfaz del gestor de bases de datos, Datos, nos permite con- 





sultar y modificar el contenido de la tabla. Dispone de tres botones: Nuevo registro 
(hoja en blanco), Borrar registro (aspa roja) y Guardar datos (floppy). Hay que tener 
siempre presente que, al trabajar con esta interfaz, los datos que añadamos, elimi- 
nemos o modifiquemos, sólo se actualizan realmente en la base de datos cuando pul- 


samos el botón para guardar. 


Cada vez que pulsamos el botón Nuevo registro, se crea una línea, correspondiente 
a un nuevo registro en la tabla actual. Podemos desplazarnos por los distintos cam- 
pos de ese registro, para añadir los datos correspondientes. También, si la tabla con- 
tiene ya datos, podemos modificarlos o bien podemos seleccionar un registro y eli- 


minarlo con la opción Borrar registro. 


En este último caso el registro se pone de un color distinto para señalar que en la 
próxima actualización dicho registro desaparecerá, lo cual nos permite asegurar- 
nos que la solicitud de eliminación es correcta antes de pulsar el botón Guardar 


datos. 
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Figura 16, Pestaña de Datos. 


Introduciremos registros de libros utilizando esta interfaz, para que dispongamos 
de algunos datos con los que trabajar en adelante. Recordemos que es importante 


pulsar el botón Guardar datos cuando hayamos terminado la edición. 


поооо SOL 

Sin escribir aún código Gambas, podemos ya 
empezar a trabajar con el lenguaje SQL. Como 
hemos podido observar, uno de los botones 


del gestor de bases de datos de Gambas con- 





tiene un texto SOL. Lo pulsaremos para escri- 


Figura 17. Opción SQL. bir sentencias en este lenguaje. 


Nuestra primera consulta servirá para obtener un listado de todos los datos de la 
tabla que hemos creado. Para los que no estén muy familiarizados con el lenguaje 
SQL, aclaramos los siguientes puntos: las instrucciones de consulta comienzan con 
la instrucción SELECT, a continuación hay que determinar qué queremos consul- 
tar (en nuestro caso todos los campos, para lo cual emplearemos el símbolo *) y des- 


pués se usa la palabra clave FROM para indicar de dónde obtener esos datos. 





¡SQL 'home/dcampos/Bases (sqlite) - pruebas - Petición SQL 
> sa 


| select * from datos] 


Figura 18. Lenguaje SQL, 
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Al pulsar el botón Ejecutar, obtenemos el resultado de la consulta en la parte 








inferior. 
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Figura 19. Resultado de la consulta. 


Podemos guardar las consultas complejas en un archivo y luego recuperarlas para su 
uso posterior, con los botones Guardar petición y Cargar petición. También pode- 
mos exportar los resultados de la consulta con el botón Exportar datos, o copiarlo 
al portapapeles para pegarlo en una hoja de cálculo como Gnumeric, Kcale о 


OpenOffice Cale. 





Para familiarizarnos con SQL, también podemos realizar las siguientes consultas: 
1. Mostrar el título y autor, ordenado por el nombre de autor: 
select autor,titulo from datos order by autor 
2. Obtener todos los títulos de los libros cuyo precio es mayor de 15 euros: 
select titulo from datos where precio>15 
3. Obtener todos los datos de los libros adquiridos antes del 2004: 


select * from datos where Ғесһа<”" 2004-01-01" 


Los formatos para representar fechas y caracteres genéricos (comodines), varían de 
una base de datos a otra, y puede resultar que una consulta dada sólo funcione para 


un sistema de bases de datos determinado. 


4. Obtener todos los títulos que contienen la palabra la: 
select * from datos where titulo like “%1а%” 


Con esta interfaz no sólo podemos consultar, sino que también podemos realizar 
cualquier operación permitida por SQL+Sistema Gestor de Bases de Datos. Por ejem- 


plo, podemos añadir un nuevo registro en la tabla datos: 


insert into datos values (“El lazarillo de Tormes”, 


“Anónimo” ,2005-02-03,20.91,"Novela”) 


Al utilizar instrucciones insert, delete o cualquier otra que no dé como resultado un 
grupo de registros, el gestor muestra la leyenda No hay registros, si tuvimos éxito, o 


bien un mensaje de error si la base de datos no aceptó el comando. 


5. 4 Programación 


Modelo de bases de datos 
Gambas, a través del componente gb.db, realiza una abstracción de la estructura y 
los datos de una base. El primer requisito necesario para esta labor es saber cómo 


acceder о conectarse a una base de datos. 


De esta tarea se encarga la clase Connection. Creando varios objetos Connection pode- 


mos conectarnos a varias bases de datos. 
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El objeto Connection dispone de una serie de propiedades para determinar el tipo 
de sistema de bases de datos, el nombre de la base, la ubicación del recurso (puede 
ser una ruta en el sistema de archivos o una dirección ЇР), y los datos del usuario que 
desea conectarse a dicho sistema. Esta clase, junto con la clase Database, aportan la 
información necesaria sobre nuestra base de datos, La clase User perfila nuestro usua- 


rio y, por tanto, nuestros permisos de acceso. 


La información de una base de datos se almacena en diversas tablas. Cada tabla se 
puede imaginar como una rejilla bidimensional, al estilo de una hoja de cálculo. En 
horizontal tenemos los encabezados que nos indican la información de cada campo 
de nuestra tabla. En Gambas, el componente gb.db aporta una clase Table, que defi- 
ne la estructura de una tabla, y la clase Field que determina las características de un 


campo de una tabla. 


En vertical se van acumulando los distintos registros con información. Cuando se 
trabaja con bases de datos relacionales, el programador no se limita a hojear el con- 
tenido de una tabla, sino que, empleando instrucciones SQL, puede consultar pro- 
medios de valores, sumas, uniones coherentes de los datos de varias tablas, datos 


agrupados por una clave u ordenados según algún criterio, etc. 


En todo caso, el sistema de bases de datos devuelve siempre el resultado de la con- 
sulta como una serie de registros que disponen de varios campos, es decir, en un for- 
mato similar al de las propias tablas. Los objetos de la clase Result proporcionan el 


acceso a dichos registros y campos de información, como si se tratara de una tabla, 


La clase ResultField es similar a Field, pero en este caso no proporciona información 
sobre un campo de una tabla de una base de datos, sino sobre un campo de un con- 


junto de registros procedentes de una consulta, 


Vamos a conectarnos a la base de datos Sqlite que creamos en el primer apartado. 
Dependiendo de nuestra versión de Sglite, usaremos el driver llamado sqlite o el 


sqlite3. 


"ҮЛ КАРШИ ЕШ ТУ a a 


$ 


үтим» | fico llamado MisLibros. Situamos 


Ms 


Para ello creamos un proyecto grá- 


en él un formulario llamado 
FMain, que será el de arranque, у, 
Ш Figura 20. Formulario FMain. dentro de él, un control Co- 
lumnView llamado Tabla, Este 
:ontrol ColumnView mostrará los datos de la tabla que habíamos creado en los 


ercicios anteriores. 


Ahora vamos a escribir una función que se conecte a la base de datos dentro del códi- 


ro del formulario: 


Private hConn as Connection 


PRIVATE FUNCTION ConectarBase() AS Boolean 


IF hConn<>NULL THEN RETURN FALSE 





hConn = NEW Connection 


hConn.Host = “/home/usuario/Bases" 

hConn.Name = “pruebas” 

hConn.Type = “sqlite” 

TRY ҺСопп.Ореп() 

IF ERROR THEN 
hConn = NULL 
Message.Error(“Error al conectar соп la base”) 
RETURN TRUE 

END IF 


RETURN FALSE 


5. Gestión de bases de datos 
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Definimos un objeto Connection que será accesible en todo el formulario y repre- 
senta la conexión a nuestra base de datos. Después se escribe una función 


ConectarBase que devuelve FALSE si tiene éxito o TRUE si falló. 
El código conlleva estos pasos: 


1. 51 ya hay una conexión (si el objeto hConn no es nulo), retornamos inme- 
diatamente indicando que ya hay conexión FALSE, de esta forma podremos 
llamar sistemáticamente a esta función desde varios puntos sin preocupar- 


nos de si ya existe la conexión o no. 


2. Creamos el objeto Connection, que en principio no está conectado a ningu- 
na base, y proporcionamos la información necesaria para conectar: rellena- 
mos la propiedad Host, que en el caso de una base de datos con servidor podría 
ser una dirección ЇР, pero que рага Sqlite es una ruta dentro del sistema de 
archivos (recuerda sustituir /home/usuario por la ruta donde tú almacenaste 
la base del ejemplo); después indicamos el nombre de la base de datos (ргие- 
bas), que en el caso de Sqlite es también el nombre del archivo que está den- 
tro de la carpeta /home/usuario/Bases; y por último indicamos el tipo de base 
de datos al que nos conectaremos, y que será sqlite o sqlite3, de acuerdo con 
el diseño que realizamos con el Gestor de Bases de Datos de Gambas. 51 nues- 
tra conexión se realizará sobre un servidor MySQL, por ejemplo, también ten- 
dríamos que rellenar las propiedades Login y Password, con el nombre de usua- 


rio y contraseña de acceso al servidor. 


Puesto que aún no estamos realmente conectados, podemos rellenar todos estos datos 


en el orden que deseemos. 


3. Después, tratamos de abrir la conexión. Si no fuera posible (por ejemplo, por 
una ruta incorrecta o un fallo en el servidor), se disparará un error, que cap- 


turamos con la orden TRY. 


4. Si se ha producido un error, hacemos nula de nuevo la conexión fallida y retor- 


namos con el valor de error, que según hemos decidido, es TRUE. 
5. Si, por el contrario, hubo éxito, retornamos el valor correspondiente (FALSE). 


А continuación, vamos a crear una función a la que llamar para cerrar la conexión. 
El algoritmo es sencillo, si no hay ninguna conexión, retornamos, en caso contrario, 
cerramos la conexión y la hacemos nula para que una próxima llamada a ConectarBase 


se aperciba de que no hay una conexión activa. 
PRIVATE SUB CerrarConexion() 


IF hConn = NULL THEN RETURN 
hConn.Close() 
hConn = NULL 


ооо Consulta de datos 
Al abrirse el formulario, abriremos la conexión, leeremos los datos disponibles, los 
representaremos en nuestro control Tabla y cerraremos la conexión. Esto quedaría 


representado de la siguiente manera: 
PUBLIC SUB Form_Open() 


DIM hResul AS Result 
DIM Clave AS String 


Tabla.Clear() 
IF ConectarBase() THEN RETURN 


Tabla.Colums.Count = 5 


5. Geshón de bases de datos 
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Tabla.Colums[0].Text = “Título” 
Tabla.Colums[1].Text = “Autor” 
Tabla.Colums[2].Text = “Fecha” 
Tabla.Colums[3].Text = “Precio” 


Tabla.Columns[4].Text = “Descripción” 
hResul = hConn.Exec(“select + from datos”) 
DO WHILE hResul.Available 
Clave = hResul[*titulo”] 
Tabla.Add(Clave, Clave) 
Tabla[Clave][1] = hResul [ “autor” ] 
Tabla[Clave][2] = hResul(“fecha"] 
Tabla[Clave][3] = hResul[“precio”] 
Tabla[Clave] [4] = hResul ([ “descripcion” ] 
hResul ,MoveNext ( ) 


LOOP 


СеггагСопехіоп () 


El código trata de abrir la conexión y si fracasa sale de la función. Si todo va bien, 
define cinco columnas en nuestro control de tabla, pone el título a los encabezados 
de columna y procede a rellenar los diferentes registros. Para efectuar esta tarea, pri- 
mero consultamos los datos de la tabla, empleando el método Exec de nuestro obje- 
to hConn, al cual pasamos como parámetro la consulta SQL y nos devuelve un obje- 


to de la clase Result, que contiene cada uno de los registros provenientes de la consulta. 


El objeto Result tiene un puntero interno que en cada momento apunta a uno de los 
registros, En el estado inicial apunta al primer registro, si es que hay alguno. Este 
objeto dispone de una serie de métodos para mover el puntero. MoveNext (el de 
nuestro ejemplo) lo mueve al siguiente registro, si existe; MovePrevious, al anterior; 
MoveFirst, al primero; y MoveLast, al último, Соп MoveTo podemos especificar un 


registro concreto al que desplazarnos. 


Cuando estamos situados en un registro, Result nos permite obtener el dato corres- 
pondiente a un campo, indicando el nombre del campo como si el objeto fuese un 
Array: en nuestro ejemplo, hResul[“autor”] nos devuelve el valor del campo autor 


en el registro actual. 


51 como resultado de un movimiento del puntero hemos sobrepasado el último regis- 
tro o estamos antes del primero, la propiedad Available toma el valor False, mien- 
tras que si nos encontramos apuntando a un registro, Available toma el valor True. 
Igualmente, si no hay registros resultantes de la consulta, Available valdrá False. 


(Available significa Disponible en inglés). 


Con estos conocimientos ya podemos realizar un bucle para rellenar los datos de 


nuestra tabla. 


Mientras la propiedad Available sea True, tomamos como clave el valor del campo 
“titulo”, añadimos una línea en nuestra tabla identificada por esa clave, y cuyo texto 
(la primera columna) es dicha clave. Rellenamos el resto de los campos con los valo- 
res provenientes del objeto hResul, y nos movemos al siguiente registro. Tras salir 


del bucle, cerramos la conexión y abandonamos la función. 


Como último retoque antes de ejecutar, ponemos la propiedad Sorted del control 
ColumnView a True, de modo que el usuario, al pulsar sobre un encabezado de 
columna, pueda ordenar el listado por el campo que prefiera. Puesto que cada regis- 
tro en el listado está identificado por la misma clave que tiene en la tabla, posterio- 
res operaciones de selección/modificación por parte del usuario, no se ven afecta- 


das por el orden de representación. 
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Figura 21. Aspecto final del proyecto MisLibros. 


Aprovechar las posibilidades de ordenación de los controles, puede evitar sobrecar- 


-gor al servidor о al cliente de bases de datos con múltiples consultas. 


i Borrar registros 
174, Podemos añadir algo de código para borrar registros. Es decir que cuando el usua- 





rio pulse la tecla Supr o Del, el registro que esté seleccionado se borre. 


PUBLIC SUB Tabla KeyRelease() 


IF Key.Code = Key.Delete THEN 


IF Tabla.Current = NULL THEN RETURN 
ТЕ Tabla.Current.Selected = FALSE THEN RETURN 


ТЕ ConectarBase() THEN RETURN 


TRY hConn.Exec (“delete from datos where titulo=£1", 
Tabla,Current .Key) 
IF ERROR THEN 

Message.Error (“Imposible borrar el registro”) 
ELSE 


Table.Current.Delete() 
END IF 


CerrarConexion() 


END IF 


Aprovechamos el evento Key_Release de nuestro control Tabla. Si la tecla pulsada 
es Del o Supr, primero comprobamos si existe algún elemento actual en la tabla; si 
no es así, salimos. Si el elemento actual no está seleccionado, también salimos. Por 
otro lado, tratamos de abrir la conexión, y si hay éxito, ejecutamos una instrucción 
SQL para borrar un registro cuya clave coincida con la del registro de nuestro con- 
trol Column View. Si se produce un error (por ejemplo, una base de sólo lectura), se 
informa al usuario. En caso contrario, se borra también el registro del control para 


reflejar el cambio. Cerramos la conexión y salimos de la función. 


En general, es preferible usar KeyRelease y MouseRelease, a los equivalentes Press, 
cuando se ejecuta una acción por parte del usuario. De este modo, cuando ha pul- 
sado el botón del ratón, aún tiene tiempo рага apartarlo del control y cancelar asi 
una acción errónea, antes de levantar el dedo del ratón, De otro modo, en el even- 


to MousePress podria haber borrado un registro sin tiempo para reaccionar. 


Como podemos observar, en el caso siguiente la sentencia SQL está construida de 
un modo algo diferente. Tenemos dos parámetros, el primero es parte de la consul- 


ta y el segundo contiene el elemento concreto al que nos referimos: 


hConn.Exec(“delete from datos where titulo=41"”, 
Tabla.Current.Key) 


5. Gestión де bases de datos 




















gramación visual con Software Libre 


El método Exec admite un número variable de parámetros, y a la hora de tratar la 
sentencia SOL, Gambas sustituye los indicadores de parámetros (& 1, &2, &3...) por 
el parámetro que corresponde en orden (81 es el primer parámetro extra, &2 el 
segundo...). Además, formatea el dato según se necesite (por ejemplo, este paráme- 
tro corresponde a un dato de tipo String, que en la sintaxis Sqlite requiere unas comi- 
llas antes y detrás). Esto es muy útil para trabajar con datos de tipo fecha/hora, cade- 
nas de texto y números con decimales, ya que la sintaxis puede variar de un tipo de 
bases de datos a otras, e incluso con la misma base puede cambiar según los pará- 
metros regionales (formato de fecha, usar coma o punto para decimales, etc. ). Con 
este sistema, pondremos simplemente un dato tipo Cadena, Booleano, Fecha o 


Número, y Gambas se encargará de dar el formato adecuado. 


Dejar a Gambas la torea de dar formato a los diferentes tipos de datos, evitará muchos 
problemas si cambiamos de sistema gestor de bases de datos, o pretendemos que la apli- 


«cación funcione correctamente en varios PC que puedan tener diferentes configuraciones. 


0000500 Añadir registros 
Vamos a añadir ahora un formulario llamado FData que nos servirá para intro- 
ducir datos y también, en el siguiente apartado, para editar los ya existentes. Este 
tormulario tendrá cinco etiquetas, con cualquier nombre. Cinco cajas de texto 
llamadas TxtTitulo, TxtAutor, TxtFecha, 
TxtPrecio y TxtDescripcion, y dos boto- | 
nes llamados BtnAceptar y BtnCancelar. | н 
ч 


El aspecto general puede ser como el que {| Fecha Adquisición 


. | || FP 
vemos en la figura de la derecha (recor- j "7 


Cascripción 


demos poner los textos en las etiquetas 


сари | Cancelar 





de acuerdo con la caja de texto que 


corresponda). Ш Figura 22. Formulario FData. 


Este formulario recibirá una referencia a la conexión con la base de datos, por tanto, 


dispondrá de una referencia a un objeto Connection. 


Por ello deberemos escribir al principio del código de este formulario lo siguiente: 
PRIVATE hConn AS Connection 

Así mismo, dispondrá del método RunNew con el que le llamaremos desde el for- 

mulario principal, pasando como parámetro nuestra conexión a la base, y que mos- 

trará el formulario de forma modal, a la espera de la introducción de datos por parte 

del usuario. 


PUBLIC SUB RunNew(Data AS Connection) 


hConn = Data 
ME .ShowModal ( ) 


El código toma en hConn la referencia al objeto Connection que le pasemos, y lo 
muestra. En cuanto al botón de cancelación, es bien sencillo: basta con indicar al 
formulario que se cierre que de la siguiente manera: 


PUBLIC SUB BtnCancelar Click() 


ME.Close( ) 


En cuanto al botón Aceptar, en él realizaremos la operación de alta de un nuevo 


registro, utilizando la instrucción SQL insert into: 
PUBLIC SUB BtnAceptar Click() 


TRY hComn.Exec(“insert into datos values 
(£1,£2,£3,£4,£5)", TxtTitulo.Text, TxtAutor.Text, 
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CDate(TxtFecha.Text), CFloat (TxtPrecio,Text), 
TxtDescripcion.Text) 


END IF 
ME.Close() 
CATCH 


Message.Error (“Imposible introducir los datos 


solicitados”) 


Indicamos al objeto Connection que ejecute la sentencia SQL, la cual, para las altas 


sigue siempre el mismo patrón: 


insert into [nombre de la tabla] values ( [valor del campo 1], 





[valor del campo 2]... ) 


Para evitar problemas de formateo, seguimos empleando los parámetros adiciona- 


les, como en el caso antes comentado. 


Los datos de Título, Descripción y Autor se pasan directamente, al ser datos tipo 


texto. 


El dato del Precio se convierte a número real con CFloat(), y la Fecha se convierte a 


dato fecha/hora con CDate(). 
51 se produce un error, bien sea por falta de permisos de escritura o por datos no 
convertibles a fechas o números, por ejemplo, se captura con TRY, y se trata en el 


bloque de código CATCH donde indicamos el mensaje de error al usuario. 


Si, por el contrario, todo fue bien, se cierra el formulario tras el alta, 


Volvamos ahora al formulario princi- 
pal (FMain), y añadamos dos botones 
para completar la interfaz: uno llama- 
do BtnAlta, para dar de alta un nuevo 
registro, y otro BtnCerrar, para cerrar 


el programa. Como siempre, el botón 





de salida es sencillo de implementar 





Figura 23. Creación de los botones Nuevo 
y Salir del formulario principal. código en Fmain, no en Fdata): 


(recordemos que ahora escribimos el 


PUBLIC SUB BtnSalir Click() 
МЕ.С1оѕе() 
END 


Para el botón de nuevo registro, como siempre, tratamos de conectar a la base, pero 
nos salimos si no lo logramos. A continuación llamamos al método RunNew de > 
FData. Puesto que se muestra de forma modal, el código de este formulario queda 


aquí detenido hasta que el usuario dé un alta o cierre el formulario. 


Tras esto, y de nuevo en nuestra función, cerramos la conexión y llamamos al méto- 
do Form_Open(), que, como recordaremos, se encargaba de representar los datos 


en la tabla, para reflejar así el alta dada por el usuario. 
PUBLIC SUB BtnNuevo Click() 


IF ConectarBase() THEN RETURN 
FData.RunNew(hConn) 
СеггагСопехіоп () 

Form Open() 
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Ya disponemos de una interfaz básica para dar altas. Se pueden mejorar muchas 
cosas. Entre otras, se pueden bloquear los cuadros de texto para que sólo acepten 
números y el signo decimal (en el caso del precio), para que sólo acepte un dato váli- 
do como fecha (en el caso del campo Fecha), y que compruebe la longitud máxima 
en el caso de los diferentes campos de texto, También se puede ajustar el formato de 
fecha al adecuado para el usuario (aquí usamos directamente el de Sqlite, es decir, 
dos digitos de mes / dos digitos de día / dos digitos de año), o traspasar los datos de 
vuelta al formulario principal para que sólo se actualice el nuevo registro en lugar 


de toda la tabla completa. 


950000 Modificar registros 

Aprovecharemos el formulario de altas para las modificaciones. Cuando el usuario 
haga doble clic sobre uno de los registros, aparecerá el formulario de altas, con los 
datos del registro actual, pero esta vez en modo modificación para que el usuario 
cambie sólo lo que quiera, Modificaremos el código del formulario de datos para que 
disponga de un flag para indicar si trabaja sobre un alta o modificación, y dispon- 


dremos también de una referencia a un objeto de la clase Result, que apuntará al regis- 





tro actual a modificar. El principio del código del formulario Fdata quedaría así: 


PRIVATE Editando AS Boolean 
PRIVATE hConn AS Connection 


En el mismo formulario añadiremos un nuevo método que, a diferencia de RunNew 
prepara al formulario para entrar en modo edición. Para ello recibimos la referenci: 
al objeto de la clase Result; ponemos el flag Editando a TRUE; y ponemos en cad; 


caja de texto el valor del campo correspondiente. Tras esto, se muestra de forma modal 
PUBLIC SUB RunEdit(Data AS Result) 
hResul = Data 


Editando = TRUE 
TxtTitulo.Text = hResul(“titulo”] 


TxtAutor.Text = hResul[“autor”] 

TxtFecha. Text = hResul [“fecha”] 
TxtPrecio.Text = hResul [ “precio” ] 
TxtDescripcion.Text = hResul[ “descripcion” ] 
ME .ShowModal ( ) 


Hemos de modificar también el código del botón BtnAceptar para que distinga entre 
altas y modificaciones, y actúe en consecuencia. En el caso de la modificación, sitúa 
el valor de cada caja de texto en el campo correspondiente, y de existir un error, se 
tratará en la zona CATCH al estar protegida cada inserción con una instrucción TRY. 
Si hubo éxito, se llama al método Update, que hace que los valores que hemos intro- 
ducido en los campos se actualicen realmente en la base de datos. Tras esto, como 


en el caso del alta, se cierra y descarga el formulario. 





PUBLIC SUB BtnAceptar Click() 


IF Editando THEN 
TRY hResul[“titulo”] = TxtTitulo.Text 
TRY hResul[“autor”] = TxtAutor.Text 
TRY hResul[“fecha”] = TxtFecha. Text 
TRY hResul[*“precio”] = TxtPrecio.Text 
TRY hResul | “descripcion”] = TxtDescripcion.Text 
TRY hResul.Update () 
ELSE 


TRY hComn.Exec(“insert into datos values 
(&21,52,&3,&4,55)", TxtTitulo.Text, TxtAutor, Text, 
CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), 
TxtDescripcion.Text) 


END IF 
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МЕ.С1оѕе() 


САТСН 
Message.Error (“Imposible introducir los datos 
solicitados”) 


Añadir nuevas funcionalidades a un elemento ya existente, como un formulario, puede 
ahorrar tiempo y código, pero en ocasiones puede hacer el nuevo código complejo y 
difícil de mantener. Hay que sopesar el equilibrio entre coste de programación y man- 
tenimiento posterior en cada coso, antes de crear una nuevo estructura de código o 


modificar la existente. 





De nuevo en el formulario principal, FMain, aprovecharemos el evento Activate del 
control Column View, que se genera al hacer doble clic, para dar acceso a esta nueva 
funcionalidad. 
PUBLIC SUB Tabla Activate() 

DIM hResul AS Result 

IF Tabla.Current = NULL THEN RETURN 

IF ConectarBase() THEN RETURN 

hResul = hConn.Edit(“datos”, “titulo=51", 

Tabla.Current.Key) 


FData.RunEdit(hResul ) 


Tabla, Current[0] = hResul[“titulo”] 


Tabla.Current[1] = hResul[ “autor” ] 
Tabla.Current[2] = hResul[ “fecha” ] 
ТаЬ1а.Сиггеп+ [3] = hResul[ “precio” ] 


Tabla.Current[4] = hResul [ “descripcion” ] 


CerrarConexion( ) 


Como podemos observar, ahora el objeto Result no lo obtenemos como llamada al 
método Exec si no con otro nuevo método: Edit. La razón es que las llamadas a Exec, 
que reciben como parámetro una sentencia SQL, son de sólo lectura, es decir, es posi- 


ble examinar el contenido de un campo como por ejemplo: 


Cadena=hResul [ “titulo”] 


Pero no es posible actualizar el contenido del campo, es decir, no se puede realizar: 





hResul [ “titulo”]=Cadena 
que es precisamente lo que nos interesa, 


El método Edit no recibe como parámetro una sentencia SQL, sino el nombre de 
la tabla que se desea modificar, y como segundo parámetro y posteriores, un fil- 
tro y los parámetros de ese filtro. Es fácil entender el modo en que trabaja si par- 
timos de una instrucción SQL y obtenemos las partes que nos interesan para el 
método Edit. 


Supongamos que de una tabla Articulos queremos modificar todos aquellos cuyo 
ampo precio sea superior a 20. Una sentencia SQL para obtener ese conjunto de 
registros sería: 

select * from Articulos where precio>20 
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Para construir la llamada al método Edit tendríamos: 

Nombre de la tabla: Articulos. 

Filtro: precio mayor que una determinada cantidad, 

Parámetros del filtro: 20, en este caso. 
Por tanto la llamada queda como: 

hComn.Edit ( “Articulos” , “precio>41", 20 ) 

¿Por qué no se emplean sentencias SQL directamente? Porque las modificaciones 
tienen sentido sólo sobre una tabla. No se puede modificar, por ejemplo, el resulta- 
do de los registros que provienen de unir dos tablas, o de un sumatorio de los yalo- 
res de un campo, 
Tras obtener el registro con la llamada a Edit, pasamos el objeto Result editable al 
formulario de datos, con la llamada a su método RunEdit, y éste se mostrará de forma 
modal, Al cerrarse el formulario, la ejecución retorna a nuestro método en el cual 
actualizamos el contenido de nuestro control Column View para reflejar los cambios 


hechos en la tabla de la base. 


A continuación, se reproducen completos el código de FMain y FData al ser dos 


códigos extensos que hemos troceado y modificado sobre la marcha. 
FMAIN 
PRIVATE hConn AS Connection 
PRIVATE FUNCTION ConectarBase() AS Boolean 
IF hConn THEN RETURN FALSE 


hConn = NEW Connection 


hConn.Host = “/home/usuario/Bases” 

hConn.Name = “pruebas” 

hConn.Type = “sqlite” 

TRY hConn.Open() 

IF ERROR THEN 
hConn = NULL 
Message.Error (“Error al conectar con la base”) 
RETURN TRUE 

END IF 


RETURN FALSE 


PRIVATE SUB СеггагСопехіоп() 





1F hConn = NULL THEN RETURN 
hConn.Close() 
hConn = NULL 


END 


PUBLIC SUB Form Ореп() 


DIM hResul AS Result 
DIM Clave AS String 


Tabla.Clear() 


ТЕ ConectarBase() THEN RETURN 
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Tabla.Colums.Count = 5 
Tabla.Colums[0].Text = “Título” 
Tabla.Colums[1] .Техё = “Autor” 
Tabla.Colums[2] .Text = “Fecha” 
Tabla.Columns[3].Text = “Precio” 
Tabla.Colums[4].Text = “Descripción” 


hResul = hConn.Exec (“select * from datos”) 


DO WHILE hResul.Available 


Clave = hResul [ “titulo” ] 
Tabla.Add(Clave, Clave) 


Tabla[Clave] [1] 
Tabla[Clave] [2] = hResul [ “fecha” ] 


hResul[“autor”] 


Tabla[Clave][3] hResul [ “precio”] 


hResul [ “descripcion” ] 


Tabla[Clave] [4] 
hResul .MoveNext () 





LOOP 


CerrarConexion() 


PUBLIC SUB Tabla KeyRelease() 


IF Key.Code = Key.Delete THEN 


ТЕ Tabla.Current = NULL THEN RETURN 
IF Tabla.Current.Selected = FALSE THEN RETURN 


IF ConectarBase() THEN RETURN 


TRY hConn.Exec (“delete from datos where titulo=51", 
Tabla.Current.Key) 

IF ERROR THEN Message.Error (“Imposible eliminar el 
registro”) 

CerrarConexion() 


Tabla.Current.Delete() 


END IF 


PUBLIC SUB Tabla Activate() 


DIM hResul AS Result 


IF Tabla.Current = NULL THEN RETURN 





IF ConectarBase() THEN RETURN 
hResul = hConn.Edit(“datos”, "titulo=81", y 
Tabla.Current.Key) 

FData.RunEdit (ҺКеѕи1) 


Tabla.Current[0] = hResul [ “titulo” ] 
Tabla.Current[1] = hResul [ “autor” ] 
Tabla.Current[2] = hResul [“fecha"] 
Tabla.Current[3] = hResul [ “precio”] 
Tabla.Current[4] = hResul [ “descripcion"”] 
CerrarConexion ( ) 


PUBLIC SUB BtnSalir Click() 


ME.150%3Close( ) 
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END 


PUBLIC SUB BtnNuevo Click() 


IF ConectarBase() THEN RETURN 
Fpata.RunNew(hConn) 
СеггагСопехіоп() 

Form_Open() 


FDATA 


PRIVATE Editando AS Boolean 
PRIVATE hResul AS Result 
PRIVATE hConn AS Connection 





PUBLIC SUB RunNew(Data AS Connection) 


hConn = Data 


ME. ShowModal ( ) 


PUBLIC SUB RunEdit(Data AS Result) 


hResul = Data 
Editando = TRUE 


TxtTitulo.Text = hResul[“titulo”] 


TxtAutor.Text = hResul[“autor”] 
TxtFecha.Text = hResul [ “fecha” ] 
TxtPrecio.Text = hResul[“precio”] 
TxtDescripcion.Text = hResul [| “аеѕсгірсіоп"] 


ME.ShowModal ( ) 


PUBLIC SUB BtnCancelar Click() 


ME.Close() 


150% 
PUBLIC SUB BtnAceptar Click() 


IF Editando THEN 
TRY hResul["“titulo”] = TxtTitulo. Text 
TRY hResul(“autor”] = TxtAutor.Text 
TRY hResul[“fecha”"] = TxtFecha, Text 
TRY hResul [“precio”] = TxtPrecio. Text 
TRY hResul [“descripcion”] = TxtDescripcion.Text 
TRY hResul .Update() 
ELSE 


TRY hConn.Exec(“insert into datos values 
(&1,&2,&3,ЬЕ4,&5)”, TxtTitulo.Text, TxtAutor.Text, 
CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), 
TxtDescripcion.Text) 
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ME.Close() 


CATCH 
Message.Error (“Imposible introducir los datos 
solicitado: 1) 


SNL 


А lo largo de este código, se abre v cierra la conexión con la base de datos en cada 
operación realizada. Con esto, el periodo de tiempo en que los datos se encuentran 
en buffers intermedios es menor, reduciendo la posibilidad de corrupciones, ante un 
fallo de tensión, por ejemplo. No obstante la carga del servidor y cliente trabajando 
de este modo es mayor, y puede ser un modelo excesivamente lento si el volumen de 
datos es muy grande, o si sólo se realizan operaciones de lectura. Es conveniente, por 
tanto, evaluar la conveniencia o no de mantener la conexión y consultas abiertas en 


las distintas operaciones que se efectúen sobre la base de datos. 


5. 5 Otras caracteristicas 


Estructura de las tablas 
Gambas también permite examinar la estructura de las tablas de una base. Para ello 
se emplea la clase Table y la clase Field. El programador no puede crear objetos de 
esas clases directamente, pero puede obtenerlos de una conexión en curso. Esta fun- 
ción de ejemplo, lista en la consola la estructura de una tabla, recibe como paráme- 


tros una conexión y el nombre de una tabla, y lista sus campos. 


PRIVATE FUNCTION ListarTabla ( hConn AS Connection, 
NombreTabla AS String) 


hTable = hConn.Tables|[NombreTabla] 


FOR EACH hField IN hTable.Fields 


PRINT “Campo: ” £ hField.Name 
SELECT CASE hField.Type 
CASE gb. Integer 
PRINT “Entero” 
CASE gb.Float 
PRINT “Número real” 
CASE gb.String 
PRINT “Cadena” 
CASE gb.Date 
PRINT “Fecha/Hora” 
CASE gb.Boolean 
PRINT “Booleano” 
END SELECT 





NEXT 


En ocasiones puede ser necesario examinar una tabla, como al inicio del progra- 
ma, para comprobar sus campos. Por ejemplo, en la fase de transición moneda 
nacional/Euro en Europa, se hizo necesario almacenar datos de importes en ambas 
monedas durante un periodo, en algunos programas. Las versiones actualizadas 
de estos programas, al instalarse y arrancar por primera vez, comprobaban la exis- 
tencia de estos campos, y actualizaban la base de forma automática. Versiones 
posteriores podían eliminar el campo de moneda nacional para ahorrar espacio 


en la base. 


SQL no es sólo un lenguaje de consulta. Las instrucciones como CREATE TABLE, 
DELETE TABLE y ALTER TABLE, se utilizan precisamente para la función indica- 


da: alterar la estructura de la base y sus tablas cuando es necesario. 
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поооо Más utilidades del Gestor de Bases de Datos 


Ejecutando  gambas-database- |= FUhomardcampos:Bases (зае) 
= ш 







manager podemos encontrar algu- aaor 9 Gram 
' ТТЕ ТК O TN ha, + Usuarios ¡ES Grear tabla. 
nas utilidades adicionales, (ки Petición SOL... 















К Степ codigo Gambas. 
[Х Utilizar codificación (LITF-8) 







La primera de ellas es obtener el Mostrar tablas de sistema 
T | A Въ Copiar 

código para crear las tablas de la O Don 

base. Situándonos sobre una base O Batroscar 





х Сетаг 





y pulsando el botón derecho, 
podemos seleccionar la opción Figura 24. Otras utilidades del Gestor de Bases 
Crear código Gambas... de Datos. 


Al acceder a este menú, nos preguntará el nombre del módulo y el procedimiento 
para crear el código. Tras indicar estos valores, cerrar y volver a abrir el proyecto, dis- 
pondremos de un nuevo módulo con el nombre indicado, que contiene el código 


para crear la tabla. 


PROCEDURE CreateDatabase(hConn AS Connection, 
sDatabase AS String) 


' Generated by the Gambas database manager - 
22/08/2005 10:26:43 


DIM hTable AS Table 
hTable = hConn.Tables.Add (“datos”) 
WITH hTable 
«Fields.Add(“titulo”, gb.String, 40) 
.Fields.Add(“autor”, gb.String, 40) 


-Fields.Add(“fecha”, gb.Date) 
.Fields.Add(“precio”, gb.Float) 


‚„Е1зе1йв.Ада(“йевсгїрсїоп”, gb.String, 200) 
.PrimaryKey = [“titulo”] 
«Update 

END 


Al inicio del programa, y tras conectar con el servidor de bases de datos, podemos 
entonces comprobar si no existe la(s) tabla(s), y llamar a este código para que la(s) 
cree, con lo cual se facilita la distribución del programa en varios equipos, sin nece- 


sidad de intervención adicional manual para poner en marcha un sistema nuevo. 


Gambas-database-manager permite también copiar datos entre bases. Podemos, por 
ejemplo, pulsar el botón derecho sobre nuestra tabla datos, presionar sobre Copiar, 
acceder a otra base de datos, sea Sqlite o de otro tipo, pulsar Pegar, y el gestor crea- 
rá la tabla en la otra base, preguntándonos si queremos copiar sólo la estructura de 
los campos o también los datos. De esta forma, se facilita la fase de programación, 
al poder disponer de varias bases de pruebas, así como la fase de migración de una 
base a otra, al poder copiar datos de la base antigua a la nueva. Este proceso se puede 


llevar a cabo para tablas individuales o para una base de datos completa. 








позван б. | Conceptos 


La transmisión de datos a través de una red se estanda- 
rizó hace tiempo a nivel de software y hardware. Actualmente se 
trabaja con el llamado modelo de capas. Básicamente, este modelo pre- 
le aislar los diferentes niveles de com plejidad de datos, de forma que la sus- 
ón de una capa no afecte al trabajo en otra. Podemos ver hoy en día que es 
Ме рог ejemplo, conectarse а Internet a través de un módem, una línea ADSL 
| e ethernet en una red local y, sin embargo, el hecho de tener aparatos tan 
NOS en funcionamiento no obliga a disponer de un navegador o un cliente 
Тео diferentes para cada situación. Esto se debe al modelo de capas. El nave- 
56 6 о entiende de protocolos de alto nivel, como HTTP o FTP, transfiere la 
Mación a un nivel más bajo y, finalmente, el módem convencional ADSL o 
dered se ocupan de transportar esos datos segúmpro: 




















AA тшчштүот тыкпыт т т Тыл Кый ыы G 
















Рага no entrar en complejidades, ya que es tarea de un libro sobre redes, diren mo 
que hay un par de niveles: los más bajos, conformados por el hardware (módem, ч 
AR IM RAE trocean la inf A 
mación para emitirla o recibirla por dicho hardware; y unos niveles por encina Ж | 
son los que más nos interesan a la hora de programar con Gambas aplicaciones de 
red, y que son independientes del método de transporte que haya por debajo, ү 





El protocolo más extendido hoy en día para distribuir información entre equipos Я | 
el protocolo ЇР, que determina qué destino y qué equipo recibirá cada fragmento de 
información que circula por una red, Cada equipo tiene un número asignado, lla: 
mado dirección IP es su identificador único. Cada paquete IP de información g 
similar a una carta postal: incluye datos del remitente (IP del equipo de origen) į | 
del destinatario (IP del equipo de destino). Estas direcciones ЇР tienen la п 
ХХХ.ХХХ.ХХХ.ХХХ; son grupos de cuatro números que varían entre 0 y 255, sepa: 
rados por puntos (por ejemplo: 192.168.0.23 o 10.124.35.127). 


Dado que estos números son dificiles de recordar, se estableció un sistema que рев 
mitia establecer una correspondencia entre nombres y direcciones IP, Este sistema 
se denomina DNS y, a lo largo y ancho de Internet y de casi todas las redes locales; 
se encuentran servidores DNS que reciben consultas acerca de nombres de equipos 
y direcciones IP y las traducen en un sentido u otro. De esta forma, podemos, pof 
ejemplo, indicar al navegador que muestre la página www.gnulinex.org, en lugar de 
tener que indicar la dirección ІР del equipo que está sirviendo esta página. 


Los paquetes IP pueden contener cualquier tipo de información, pero encima de este 
nivel se han establecido otros dos también estándar, que son los protocolos TCP y UDE. 


1. TCP se utiliza para asegurar la conexión entre dos equipos: se sabe en todo 
momento si el equipo remoto está a la escucha, si ha recibido toda la infor- 
mación correctamente o hay que volverla a emitir, y se añaden sistemas de 
control de errores para asegurar que un ruido en la linea no ha deformado 
los mensajes. Es el protocolo más utilizado en Internet, ya que asegura q0% 
recibamos una página web o un fichero de forma completa y sin errores 







































п cuanto a UDP, es un protocolo de transporte mucho más simple que TCP, 





uipos o si la 
formación ha sido realmente recibida o no. Es, por tanto, menos fiable, pero 
Кы. tipos de transmisiones, como son las de audio y vídeo еп 
iempo real, lo importante no es que llegue toda la información (puede haber 


С рта si realmente existe una conexión entre los dos « >а 


pequeños cortes o errores), sino que el caudal sea constante у lo más rápido 
| JOS ble. Por ello, también se emplea con frecuencia en Internet, sobre todo 
зага los llamados servidores de streaming, que nos permiten escuchar radio, 


ver programas de televisión o realizar videoconferencias por la red. 


ra de establecer una comunicación entre dos equipos, el modelo indica que 
abri se un socket. Es algo similar a una bandeja de entrada o salida, como la 
admir istrativos, que tienen una bandeja con los informes pendientes y otra 
¡que van terminando, El sistema operativo almacena información en la ban- 
entrada proveniente del sistema remoto, hasta que nuestro programa deci- 
ar los datos, entonces los procesamos y los dejamos en la bandeja de salida. 


ima operativo se encargará de enviar esa información cuando le sea posible. 


5 no se emplea sólo para comunicar dos o más equipos, dentro de nuestra 
аг má quina muchos programas se comunican entre sí utilizando este sistema. 
ln nplo, es el caso de los servidores gráficos o X-Window: el servidor gráfico 
blo que le piden los programas clientes o aplicaciones que han establecido 
sket con él. 


un tipo especial de socket, llamado local o Unix, que sólo sirve para comu- 
programas dentro de un mismo sistema, y que está optimizado para realizar 
Inción con gran velocidad y eficacia, permitiendo una comunicación inter- 
las veces más veloz y con menor consumo de recursos que a través de un 
"TCP o UDP. 


О más arriba, tenemos los llamados protocolos de aplicación. Ya no nos encar- 
el transporte de datos, sino del formado de los datos y de la comunicación. 
Os protocolos más extendidos es el НТТР que, entre otras cosas, se utilize 
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азнав б. 2 Creando un ser 





Nuestra primera tarea consistirá en escribir el código de un servidor TCP: será un 
servidor que aceptará conexiones remotas, leerá los datos que envían y devolverá un 
eco a los clientes, Crearemos un programa de consola llamado MiServidor, Este pro 
grama tendrá un único módulo llamado ModMain. En las propiedades del proyec 
to hemos de seleccionar el componente gb.net. 


Dentro del módulo ModMain tendremos una referencia a un objeto ServerSockel. 
Dichos аон ве comportan como servidores de sockets, es decir, se encuentran а. 
eeeh E as error — Й 


tú 1. сото | 
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Figura 1. Programa MiServidor. 





| 4 >99 rio es езх И гоо! PERA Б por tanto, de abrir, 
| о, el puerto 523 desde un programa ejecutado por un usuario normal, 
Е М ug: ra un error. 


Eservicios más conocidos como HTTP o FTP ya tienen un puerto asignado (por 
пріо, 80 en el caso de HTTP) de forma estándar, si bien no hay ninguna razón 
lica por la que un servidor web no pueda atender, por ejemplo, al puerto 9854. 
О зе debe únicamente a un acuerdo internacional para que cualquier cliente que 
Era realizar una petición web, por ejemplo, sepa que, salvo instrucciones especi- 
$ en otro sentido, ha de conectarse al puerto 80 de la máquina servidora. 








|! h | PRIVATE Servidor AS 
li UA 
ҮҮ! IN 


| | 
AMIA 
| | 1 | 


o 
| | 

|11 
ни \| 


Observemos que a la hora de crear el objeto servidor, indicamos que el gestor de 
eventos será “Servidor”, para poder escribir las rutinas en las cuales tratemos 188 
peticiones que llegan de los clientes. 


A la hora de indicar al servidor que se ponga a la escucha con el método Listen, lo 
hacemos protegiendo el código con una instruc ión TRY, para gestionar el „rror si 
el sistema no permitiese atender al puerto indicado (por ejemplo, si otro servicio уй 
lo estuviera ut ilizand 0). Ya podemos ejecutar el programa. 








Como podemos observar, el programa pasa la función Main y sigue ejecutándos i 
la espera de una conexión de un cliente. Un programa normal алат. к 
nar esta función, hubiera fin lizade o sin o e учын 
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ama servidor ya está funcionando, aunque no haga nada realmente útil. De 
їр obamos a conectarnos desde la consola con el programa telnet a nues- 
lo servidor, observaremos que se conecta e inmediatamente se desconecta 










dca poaggnuLiner: -$ telnet 127. 0.0.1 3152 
Trying 127.0,0.1.., 
#Соппесїед to 127.0.0.1. 
Escape character is '”]', 
Connection closed by foreign host. 
AdcamposégnuLinEx: =$ 





















їп Figura 2. Prueba de conexión. 


onamiento del objeto ServerSocket es precisamente éste: recibe una conexión 
lente y, si no especificamos en el programa que deseamos atenderla, la cierra. 


do un objeto servidor recibe una petición de un cliente, se dispara el evento 

tic п. Dentro de dicho evento, y sólo dentro de él, podemos utilizar el méto- 
ept: Dicho método devuelve un objeto Socket que representa una conexión 
ho. cliente. A la hora de recibir o enviar datos a ese cliente, se hará a través de 
lo, de ese modo, зе diferencia a са cliente conectado con un servidor de 











conectan, 


PRIVATE Servidor AS ServerSocket 
PRIVATE Clientes AS NEW Object[] 


PUBLIC SUB Servidor Connection(RemoteHostIP AS Si 
.DIM Cliente AS Socket 


Cliente = Servidor.Accept() 
Clientes.Add(Cliente) 


| PUBLIC SUB Main() 
Servidor = NEW ServerSocket AS “Servidor” 


| Servidor, Type = Net.Internet 
Servidor.Port = 3152 
~. | TRY Servidor.Listen() 
INN | IF ERROR THEN PRINT “Error; el sistema по perm 
atender al puerto especificado” 


En nuestro gestor de eventos Connection utilizamos el método Accept, р 
siempre aceptamos las conexiones entrantes. No obstante, si lo оті! im 5% 
determinados, el intento de conexión del cliente se cerrará auto náti 
Observamos, por ejemplo, que Accept nos informa de la dirección 1P del di 
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еде otras direcciones ІР. 
















PUBLIC SUB Servidor Connection(RemoteHostIP AS String) 
DIM Cliente AS Socket 


IF RemoteHostIP="127.0.0.1” THEN 





Estos objetos socket, por defecto reciben ya un gestor de eventos llamado Socket, 
por lo que los eventos de estos clientes de socket se atenderán en el programa por 
una función llamada Socket_ + Nombre del evento. 





En nuestro caso atenderemos a los eventos Read que se producen 
datos desde el cliente, y el evento Close, que se produce cuando el cliente cierra la 


Conexión. 


En el caso del evento READ, nos valdremos de la palabra clave LAST, que mantie- 
Me una referencia al último objeto que ha disparado un evento (en este caso, el clien- 
te de socket) para tratar los datos que provienen de él. 





ra ello, leeremos el socket como si fuera un archivo, con la instrucción READ, en 
orina cade que е tos; Іеегето: gitud 

dis ocket, determinada por la unción Ef) y después escribi mos 
Os mismos datos en el socket con la instr үү | 

Mba un eco de loc datos enviada | 
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R ем ri + ай" 

| ш m DIM sCad AS String 

| Г TRY READ #LAST, sCad, Lof (LAST) 

| | | sCađ=UCase(sCad) 

|| | TRY WRITE fLAST, sCad, Len(sCad) 
Mi 


Para Close, buscamos el objeto Socket dentro de nuestra matriz, y lo elimin 
que desaparezcan las referencias a dicho cliente dentro de nuestro programa 


| 4 


PUBLIC SUB Ѕоскеё С1оѕе() 


| Ind = Clientes.Find(LAST) 
IF Ind >= 0 THEN Clientes.Remove (Ind) 





Ya disponemos de un programa servidor de socket con capacidad para 

múltiples clientes: podemos abrir varias ventanas de terminal, ejecutando 
telnet 127.0.0.1 3152, y enviar y recibir datos del servidor. Cada vez que est 
una cadena y la enviemos pulsando Return, recibiremos la cadena conv 
mayúsculas como respuesta del servidor, 


_дсатров@дпи і пех: ja госу 127.0 0.0. 1 3152 
Trying 127.0.0.1... 

Connected to 127.0.0.1. 

Escape character is '*]'. 

datos a pasar a mayusculas 





DATOS A PASAR A MAYUSC 


айы ай кы Бы ЕЧ, шш 


(үтте чира рел $ telnet 127.0.0.1 3182 
Trying 127.0.0D.1... 

connected to 127.0.0.1. 

Escape character is '*]', 


ESCRIBE ESTO EN MAYUSCULAS 





Figura 3. Programa servidor de socket, 





se... б. З Un cliente ТСР 


Ahora que ya disponemos de un servidor, vamos a crear un programa cliente. 


"Diseñaremos un programa gráfico llamado MiCliente, con un formulario FMain, y 


una referencia al componente gb.net como en el caso anterior. 





£ D.. 














TxtPuerto, en los que ¿de usuario situará la 
Dirección IP y el Puerto 
se; un botón llamado BtrConectar, con el 
texto Conectar; un TextBox llamado 
TxtDatos, en el que el usuario situará los 
datos a enviar al servidor, y un etiquet: 

llamada LblResultado, en la que mostra- 
remos el resultado recibido del servidor. 
También situaremos tres etiquetas informativas con cualquier nombre para guiar al 
usuario, Al lanzar el formulario, situaremos unos valores por defecto y pondremos el 
TextBox TxtDatos deshabilitado, ya que en principio el programa no está conectado: 
al servidor. También situaremos al principio del código una variable global de tipo. 
Socket, que representará al cliente con el que nos conectaremos al servidor, 











5205 5. Formulario FMain. 


|| WU * Gambas class file 


NN 


\\ Iil | | PRIVATE Cliente AS Socket 


A | 
PUBLI( 


\\\ С SUB Form Ореп() 


| | em i ) 
¿lo | 


(ЧОО эзле» "127.0:0:1" 


ү TxtPuerto. Text = “3152” 


ШҮ беа а 

1 ИШ \\\ | _ 

ÓN LblResultado. Text = “” 
үи ү | J Ч 
i | \' | | 


| 


TxtDatos.Enabled = FALSE 





nectar tendrá dos funciones: si no estamos conectados, tratará de 
conecten уз si yA de estamos, арш a. pa y rodor Para a Ще si la 


- 
o, Por otra parte v гет lato de 
> Бага кеш. Чыч ne 
ы; 
=; № а зж ә Ка 
і da 3 = М * 



















ificar el número de puerto usamos dos funciones: Val(), devuelve un núme- 
tir de un texto si éste contiene sólo caracteres numéricos. Si по es así, devuel- 
Л. Si hemos obtenido un número, verificamos que se encuentre en el rango 
5, Para la dirección IP, emplearemos Net.Format, que devuelve una dirección 
| ir de un texto, si es posible interpretarlo como tal, o una cadena vacia si no 
И сібһ1р 


2 disponemos de los datos, creamos el objeto Socket y tratamos de conectar 
[Р y puerto dados, y cambiamos el texto del botón a Desconectar. 


aso de que ya estuviéramos conectados tratamos de cerrar el socket, si estu- 
bie: to, deshabilitamos el cuadro de texto de datos y ponemos a NULL la refe- 
al objeto socket, para destruirlo, 


tar Click() 


DIM nPuerto AS Integer 
DIM sIP AS String 


LblResultado.Text = *“” 
TxtDatos.Text = “” 


| IF Cliente = NULL THEN 
ifi 
TRY nPuerto = Val(TxtPuerto.Text) 

Message .Error (“Número de puerto no válido”) 
END IF 
IF nPuerto < 1 OR nPuerto > 65535 THEN 
Message.Error (“Número de puerto no válido”) 











tp + | | 
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Entre el intento de conexión y la conexión real puede pasar un intervalo de tien 
po. Para saber cuándo hemos conectado realmente con el servidor, emplea 
evento Ready, que se produce cuando el servidor acepta nuestra conexión. En est te | 
evento, habilitaremos el cuadro de texto de datos para que el usuario pueda escri 
bir allí. También puede suceder que se produzca un error (por ejemplo, una conë- 
xión rechazada o un nombre de host no encontrado), en cuyo caso se dispara d 
evento Error, que aprovechamos para devolver la interfaza su estado desconecta" 
do y eliminar el socket fallido, 
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PUBLIC SUB Cliente Error() 








nto al envío de datos, lo realizaremos cuando el usuario pulse la tecla Return, 


jenbir un texto en el cuadro TxiDatos, 
lo introduciremos el código dentro del evento KeyPress del cuadro de texto. 


PUBLIC SUB TxtDatos KeyPress() 


IF Len(TxtDatos.Text) > 0 THEN 


LblResultado. Text = “" 


TRY WRITE fCliente, TxtDatos. Text, 
Len(TxtDatos. Text) 
>= + , 
тань “а 2. а а 
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Ya tenemos nuestro cliente listo, Arrancamos el servidor que creamos anteriorme 
te y una o varias instancias de este programa para comprobar los resultados, 
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s 6. 4 Clientes y servidores locales 














en de los sockets TCP, diseñados para conectar equipos remotos, los siste- 
U/Linux, y en general cualquier sistema que siga la filosofía de la familia de 
s UNIX”*, disponen de otro tipo de sockets, que sólo permiten la conexión 
lel propio equipo y cuya misión es optimizar la funcionalidad de los sockets 
el cliente y servidor se encuentran en la misma máquina. 

т kets son unos ficheros especiales que el servidor crea dentro del sistema de 
5, y que los clientes tratan de abrir para lectura y escritura de datos, Hemos 
fen cuenta que situar uno de estos ficheros especiales dentro de una unidad 
O sirve para conectar dos equipos diferentes: un socket UNIX o local, sólo 


e emplear dentro de un mismo equipo. 


explicado hasta aquí para clientes y servidores TCP, es aplicable a los clientes y 


25 locales, la única diferencia se da en el modo inicial de configurar el servicio. 


iso del servidor, antes de conectar hemos de especificar que el tipo de servi- 


cal y una ruta a un archivo que representará el socket servidor. 














Servidor. Path = User.Home & “/misochet” 

TRY Servidor.Listen() 

IF ERROR THEN PRINT “Error: el sistema no permito 
atender al puerto especificado" 











apor анта ресі 





О E анай f 
cial Net.Local y la propiedad Path del socket. 


Cliente.Path = User.Home & */misocket” 
а с ada de E | = - 


шше ы, 



















© con UDP al principio puede resultar algo más complejo al principiante, En 

iste una conexión entre cliente y servidor, tan sólo llegan datos por un puer- 
fiian, pero sin conocer nunca si al otro lado hay alguien a la escucha. De hecho, 
п servidores o clientes realmente, aunque en la práctica sí haremos esta dis- 
Ala hora de diseñar una aplicación servidora о cliente. Puesto que no existe 
cada paquete se identifica con su dirección IP y puerto de origen, y este dato 
tenido en cuenta siempre а la hora de devolver una respuesta al lado remoto 





pda acceso al protocolo UDP a través de los objetos de la clase UdpSocket, 
Р tanto para crear programas servidores como programas cliente, Para ini- 
Бајо con un objeto de esta clase, se ha de llamar al método Binid, en el cual 
indicar el puerto local al que estará ligado. Los servidores habrán de estar 
ип puerto concreto definido, y los clientes a cualquier puerto, ya que el inte- 
lente es enviar datos a un servidor remoto en un puerto dado, indepen- 
iite del puerto local que emplee para ello, 


proporciona varias propiedades para identificar los paquetes, Cuando 
e al socket procedente de una ubicación remota, se genera un even- 
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Dispondremos de un objeto de la clase UdpSocket que creamos en la hoi 
Нас nila монондани | 


з ha 4 
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! ar de programa de coma que amarnos ¡Cliente DP 


ІС SUB Cliente Read) 
READ iMiCliente, sBuf, Lof(MiCliente) 


Buffer = Buffer Б sBuf 
IF Buffar = “ADIOS” THEN CLOSE iMiCliente 





MiCliénte.Bind(0) 
| 
í 


HiCliente. Targetilost = *127.0.0.1* p 
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= Programación visual con Software Libre 


En este caso, se hace también al inicio una llamada a Bind, pero asignando el valor 
especial 0 para indicar que el sistema elija por nosotros cualquier puerto local que 
se encuentre libre. Tras esto, rellenamos los datos de TargetHost y TargetPort con 


los datos de destino del paquete y enviamos la cadena HOLA. 


En el evento READ, leemos los fragmentos de datos procedentes del servidor, los 
unimos en la cadena Buffer y cuando ésta toma el valor ADIOS cerramos el socket. 


Al cerrarlo, el intérprete Gambas deja de aguardar eventos y finaliza normalmente. 


= ш ш тю ©. 6 Resolución de nombres 


El componente de red también aporta una clase DnsClient para obtener la corres- 
pondencia entre direcciones IP y nombres de equipo. Si bien el nombre sugiere la 
llamada a servicios DNS de resolución, lo cierto es que los objetos de esta clase tra- 
tarán de resolver el nombre por todos los medios que disponga el sistema. Lo más 


común es que en las redes de área local se emplee el fichero /etc/hosts que contiene 





una lista de pares nombre/IP, servidores DNS, LDAP o NIS; mientras que en acce- 
sos a Internet se emplee, normalmente, sólo el servicio DNS. El funcionamiento de 
esta clase es muy sencillo. Mediante el método GetHostIP se trata de obtener la IP 
de un nombre de equipo (Host, Name), y mediante el método GetHostName reali- 


zar una resolución inversa, es decir, de dirección IP a nombre de equipo. 


Crearemos un proyecto gráfico llamado MiChenteDNS 
con una referencia al componente gb.net, así como un for- 
mulario lamado Fmain. Dentro de él situaremos un con- 
trol TextBox llamado TxtHost, con su propiedad Text ini- 
cialmente en blanco y dos botones, uno llamado BtnTolp 
con el texto Obtener IP, y otro llamado BtntoName con 


el texto Obtener nombre. En esta ocasión, en lugar de crear 





un objeto DnsClient en ejecución, vamos a añadir el con- 
trol DnsClient de la lista de controles disponibles en el Figura 7. Proyecto 


diseño del formulario, dentro de la pestaña Network. MiClienteDINNS. 





he del client o 5 el valor FALSE. 


El aspecto del diseño será similar al de la 
Figura 8. 
















PUBLIC SUB BtnTolp Click() 


* 
Q 
Cliente.GetHostIP() a 
Message. Info("IP: “ & Cliente.HostIP) Ti 








i 
| 


PUBLIC SUB BtnToName Click() 
| Cliente.Hostlp = TxtHost.Text 

Cliente. GetHostName ( ) 

Message. Info(“Nombre: * £ Cliente. HostName) 






































қой recién obrenida: con el valor роранд 


ЕІ segundo caso ез es exactamente el contrario: rellenamos la propiedad Hi 
ario en 1а е de ко; ени al m i кз \ 





do de error con ji propicdal Status. Si vale cero, la resolución terminó c rre 
mente; si tiene un valor menor que cero, hubo un error, no se encontró la Po 17 


DnsClient también permite el trabajo en modo asincrono. En ocasiones, unan 
lución puede tardar bastante tiempo, en el que la interfaz de usuario qui 


queada trabajando en modo sincrono. 





ARONA tm e Async del cliente DA 
e modificar el código. Ya no podemos llamar al тё 

do GetHostlP() o GetHostName() e inmediatamente leer el valor de las prof ied . 
des HostName o Hostlp respectivamente, ya que mientras el código del programa 
rincipal se está ejecutando, el cliente DNS está trabajando internamente. | [ene “т T 
dos opciones: la primera es esperar el evento Finished, que se dispara al aca 
proceso; y la segunda es comprobar el estado de la propiedad Status, que уш 
TA CO A Fi н Л 
con éxito o un valor menor que cero si hubo un error. 











Éste es un ратуе ины е inici 
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Message. Info(“IP: " & Cliente.BostIP) 














Еп ип nivel por encima de todo lo explicado hasta ahora se encuentra el pro Ж | 
НТТР, en el que ya no se trata sólo de conecta Ж 
un formato para la comunicación entre clientes y servidores. El protocolo Н Ы. 
uno de los más extendidos а lo largo de Internet, dado que, entre otras cos de 








соп un servidor, sino de establecer 








En el protocolo HTTP, el cliente solicita al servidor un documento en una ubicación: 
dada, y éste lo devuelve siguiendo una serie de convenciones acerca de la codifica. 
ción de caracteres, control de errores, nivel de compresión de datos, formato de los. 


El protocolo HTTP establece dos métodos principales рага solicitar datos al servi 
dor. El primero, y más común por ser utilizado para recibir páginas web en el nave 
gador cuando escribimos una dirección, por ejemplo, es el llamado método GET, en. 
el cual el cliente tan sólo solicita una dirección URL, devolviendo el servidor el resul- 
tado. En el segundo método, llamado POST, el cliente no sólo solicita la URL, sino 
que envía una serie de informaciones adicionales que el servidor procesará antes dë 
enviar el resultado. Es el caso habitual cuando rellenamos un formulario con datos. 
en una página web y pulsamos el botón enviar. | 





Gambas aporta en el componente gb.net.curl, un cliente llamado HripClia шщ 
que provee acceso a servidores HTTP. El trabajo de negociación entre cliente 
servidor, así como la gestión de formatos, es tarea interna del cliente TTR 
la aplicación que desarrollemos sólo habrá de preocuparse en pedir un docur = 
y recibirlo. | 





El cliente HTTP puede funcionar de dos modos: el más simple es el modo sti 21 
по, шыгарасын дир ир анан: documento tras la llamada а los т 












emos un proyecto de consola para recibir la página web http://gambas. 
Jex.org/gtld. Tendrá referencias a gb.net.curl y gb.net, y un módulo ModMain, 
e código 

В PUBLIC SUB Main() 

| 

i DIM Http AS HttpClient 

Http = NEW HttpClient 


Http.Async = FALSE 
Http. Timedut = 10 
Bttp.URL = “http: //gambas.gnulinex.org/gtk/" 





Http.Get() 

IF Http.Status < 0 THEN ий: 
PRINT “Error al recibir la página” y \ 

ELSE m 
READ fHttp, sCad, Lof{(Http) 





PRINT sCad 
END IF 
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CLOSE #нъър 
_ END 


er lugar definimos y creamos un objeto de la clase HtpClient llamado Http. 
sa propiedad Aca FALSE pur qu el poan sea sincrono, es decir, que 


_ Ргодгатасібл visual con Software Libre 





Indicamos la URL que contiene el nombre del servidor y el documento 
dentro de éste. 


Llamamos al método Get con el fin de recibir la página, con lo que el prograr 
interrumpido hasta su recepción hasta un error o hasta que pasen 10 segund 
máximo, 


Leemos el valor de la propiedad Status que, como en el caso de los sockets о 
te DNS, tendrá valor mayor que cero cuando está activo, cero en caso de éxito 
que сего еп caso de error. Si hay un error, lo indicamos por la consola. Si 
bien, leemos, como en el caso de los sockets o cualquier otro flujo, empleanc 
trucción READ y mostramos el contenido de la página web recibida por co 


Finalmente, cerramos el cliente Http. Esto es necesario, ya que el cliente 
mantener viva la conexión con el servidor mientras le es posible, рага act 


esta manera la recepción de múltiples documentos de un mismo servidor, 








En cuanto al método asíncrono, el modo de proceder es exactamente el mis 
con los sockets: esperar al evento Read para ir leyendo fragmentos del doc 
en proceso de recepción, o al evento Error para atender posibles problemas di 
nicación con el servidor, 


Al margen de los problemas físicos de comunicación, que se detectan con ё 
Error, el propio protocolo HTTP puede especificar códigos de error en los que li 
nicación/recepción de datos ha sido perfecta a nivel físico, pero se han pr 
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El protocolo HTTP permite al cliente autenticarse para recibir determi 
паз по accesibles al público еп general. El usuario hu de disponer de un näi 
usuario y contraseña. Para introducir estos valores, se ha ntc отп 
de usuario en la propiedad User y la contraseña en la propiedad Password, al 5i 
llamar a los métodos Get o Post, 
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sarrollador de la aplicación ha de conocer de antemano el método que necesi- 
а acceder al servidor, 


icolo HTTP también contempla el uso de cookies, que es información que 
гена en el cliente у que es consultada de nuevo por el servidor en oca- 
) o steriores, antés de enviar un documento al cliente. Puede servir, por ejem- 
хага saber si la página ya ha sido visitada con anterioridad por dicho cliente. 
Jefecto, el cliente HTTP no acepta las cookies provenientes del servidor. Si se 
iñen са џпа ruta а un archivo con la propiedad CookiesFile, éstas se activarán yel 
e HTTP se nutrirá de las cookies existentes en dicho archivo para devolver 
nación al servidor, Si la propiedad UpdateCookies se sitúa a TRUE, se permiti- 
3 ceso de escritura al fichero de cookies, con lo cual las nuevas cookies se guar- 
her tre ejecución y ejecución del programa. 


imponente se encuentra en desarrollo y futuras versiones contemplarán el uso 
Е certificados. 


=» б. 8 Protocolo FTP 


i pS protocolo о НТТР, FTP se encuentra muy extendido a lo largo de Internet 
і clis AI transmisión y recepción de ficheros. La estruc- 
gica de un servidor FTP es muy próxima a la de un sistema de archivos loca- 


Asten una serie de carpetas con estructura arbórea y dentro de cada carpeta 


ten archivos. 
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Al igual que en el cliente HTTP, se permite la gestión de nombre de usuario y acce- 
so al servidor. 
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è © Ноу еп día es común oír hablar de 

XML como la solución a todos los problemas de 

gestión informática en la empresa. Es cierto, desde luego, 

que se encuentra sobrevalorado, posiblemente debido a las cam- 


pañas de marketing realizadas por grandes compañías de software. 


No obstante, también es cierto que XML presenta algunas ventajas importantes a la 
hora de intercambiar datos entre diferentes sistemas, Pero ¿qué es XML? Pues en 
realidad no es nada nuevo ni revolucionario, se trata simple y llanamente de una 


definición de formato para cualquier tipo de documentos. 


Cuando necesitamos escribir un fichero de configuración, un documento con 
registros extraídos de una base de datos, comunicar datos a un dispositivo, un for- 
mato para un fichero de texto o una hoja de cálculo, siempre se le plantea el mismo 
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problema al programador: la necesidad de un formato, documentado en el caso 
ideal, que defina el modo en que esa información se inserta en un fichero o en un 
flujo de datos a través de una red, con el fin de que los programas origen y desti- 
no de esos datos puedan escribir o leer cada parte del documento correctamente, 
Muchas veces escribir un fichero con un determinado formato es una tarea casi tri- 
vial, pero el proceso inverso, la lectura, suele ser engorroso, dado que hay que com- 


probar errores, trocear cadenas, comprobar la validez de cada fragmento, etc. 


Por otra parte, cada aplicación ha desarrollado hasta hace poco sus propios forma- 
tos para el almacenamiento y lectura de la información que maneja, haciendo muy 
difícil eliminar un elemento de una cadena de programas para reemplazarlo por una 
aplicación nueva. Esto tiene una importancia grande cuando una empresa se plan- 
tea el paso de sistemas propietarios a los que se encuentran encadenados, hacia otros 
libres donde obtienen ventajas de precio, y capacidad de elección de proveedores y 
servicios más justos por la inversión realizada. Los formatos propietarios atan lite- 


ralmente al cliente a los servicios y deseos de una empresa proveedora. 


XML proporciona ayuda en todos los aspectos comentados: es un estándar que defi- 
ne cómo se han de insertar los datos y los campos en un fichero o flujo. Además, las 
herramientas de gestión de documentos XML proporcionan las funciones necesarias 
para leer, escribir y verificar los datos embebidos en dichos documentos. Por último, 
se trata de un estándar accesible a todos los programadores y casas de software, lo que 


proporciona libertad para manejar y comprender el contenido de los datos. 


El formato de un documento XML es similar a uno escrito con HTML, no obstan- 
te hay diferencias sustanciales. La primera, y más importante, es que XML es un for- 
mato de carácter general, pensado para trabajar con cualquier tipo de datos, mien- 
tras que HTML se encuentra limitado al diseño de páginas web. La segunda es que, 
a diferencia de HTML, donde hay etiquetas, como la de párrafo nuevo (<p>) que se 
suelen dejar abiertas, en XML absolutamente todas las etiquetas deben estar anida- 
das, y cada etiqueta abierta debe cerrarse. Por otra parte, XML es sensible a mayús- 
culas, es decir, una sección que comienza con la etiqueta <p> no es igual a otra que 


comienza con la etiqueta <P>, 


El aspecto de un fichero XML simple, puede ser éste: 


<?xaml version="1.0*?> 
<datos> 
<nombre>Eric Smith</nombre> 
<socio>113</socio> 
</fusuario> 
</datos> 


Los documentos XML siempre comienzan, en la actualidad, por la cadena <?xml 
version=”1.0”?>, en la cual se especifica que a continuación vienen datos con for- 
mato XML. Aunque esta etiqueta puede ser obviada, siempre es conveniente aña- 
dirla, ya que contiene información importante. En este caso se especifica la versión 
de XML que se está utilizando, la 1.0, y que es la única que se emplea en la actua- 
lidad. Si en el futuro una nueva especificación internacional de XML ampliara o 
modificara XML, con una versión 2.0, por ejemplo, disponer de esa etiqueta en un 
documento almacenado hace meses o años garantizará que los programas sigan 
sabiendo cómo interpretar lo que contiene un documento. Por otra parte, los docu- 
mentos XML, por defecto, emplean la codificación de caracteres UTF-8. Si por cual- 
quier razón hemos de tratar con documentos XML que empleen otra codificación, 
también encontraremos esa información en la etiqueta inicial: 


<?xml version="1.0" 10="150-8859-1"?> 





A continuación, Пера el cuerpo del documento XML. Нау una etiqueta inicial que 
da nombre al documento, en este caso simplemente datos. Después, en este docu- 
mento vienen los datos de los usuarios de una asociación: el nombre y el número de 
asociado. Todo ello encerrado entre etiquetas abiertas y cerradas, de modo que el 


documento queda ordenado en secciones, con varios niveles de anidación. 


XML permite que las etiquetas dispongan de atributos. Por ejemplo, podemos pre- 


ver que nuestro fichero de datos contemple un número de versión para futuras 
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ampliaciones, y que en cada usuario se añada el año en que entró a formar parte de 


la asociación. Los atributos tienen la forma: 
definicion="valor" 


Es decir, se indicará el nombre del atributo, un signo de igual y, encerrado entre comi- 


llas, el valor de ese atributo. El fichero podría ser ahora así: 


<?xml version="1.0” encoding="IS0-8859-1"?> 
<datos version="2.4"> 
<usuario> 
<nombre inicio="2005">Eric Smith</nombre> 
<socio>113</socio> 
</usuario> 


</datos> 


Una etiqueta que se abra y cierre sin información en su interior, por ejemplo <p></p> 
para designar un párrafo en un documento XHTML, puede simplificarse escribiendo 
la etiqueta de apertura con la barra al final del nombre de la etiqueta: <p/>. 


Estos son los elementos más básicos de XML, pero más allá existe una amplia gama 
de conceptos que quedan fuera del alcance de este manual, y que aportan un gran 
número de posibilidades a la gestión de documentos XML: existen etiquetas espe- 
ciales para comentarios, un lenguaje para validación de datos, DTD, hojas de estilo 
con formato XSL, espacios de nombres, etc. Un buen punto de inicio para aprender 
XML es la web http://www.w3schools.com/xml/default.asp, donde se encuentran 


tutoriales al respecto, así como enlaces a otras fuentes de información. 


7.1 Escritura con XmlWriter 


La clase XmlWriter, contenida dentro del componente gb.xml, aporta un modo sen- 


cillo para escribir un documento XML. Supongamos que deseamos almacenar en 


un programa los datos relativos a varias conexiones telefónicas a Internet. Nos inte- 
resará el nombre de la conexión, si está disponible en todo el territorio nacional o 
está limitada a una localidad, el teléfono y las DNS, primaria y secundaria, aporta- 


das por el proveedor, 


Plantearemos un documento en el cual tendremos una sección conexion para cada 
conexión, que tendrá un atributo nombre y otro local, este último con dos valores: 
1, si es local, o 0, si es nacional. Dentro de la sección conexion habrá un campo para 
almacenar el número de teléfono, así como otro para los DNS primario y secunda- 


rio, los cuales tendrán un atributo que determina si es el primario. 


Siempre es conveniente emplear nombres de etiquetas y atributos que no contengan acen- 
tos о caracteres especiales de cada idioma [como ñ o с], para evitar problemas si otros 
programadores que deban retocar el programa o el fichero tienen teclados distintos o 


emplean parsers de XML pobres que ignoren algunos aspectos de la codificación. 


Éste será el aspecto del fichero XML del ejemplo: 


<?xml version="1.0"?> 

<conexiones version="1.0”> 

<conexion id="castuonet” local="0"> 
<telefono>1199212321</telefono> 
<dns primario="1">127.0.0.2</dns> 
<dns primario="0">127.0.0.3</dns> 
</conexion> 

<conexion id="limbonet” local="0"> 
<telefono>229943484</telefono> 
<dns primario="1">127.0.10.10</dns> 
<dns primario="0">127.0.20.42</dns> 
</conexion> 


</conexiones> 
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¡Antes de continuar, observemos el formato. Está separado en varias lineas, о retornos 
de carro, y existe una indentación para indicar los distintos niveles de anidación. Esto 
no es en absoluto necesario, y los parsers de XML ignoran los espacios en blanco y 
tabulaciones, así como los retornos de carro. Esto es sólo una ayuda para quien tenga 
que consultar o modificar el fichero desde un editor de texto común. Sólo tiene, рог 
tonto, sentido a nivel humano, y un fichero XML correcto podría estar contenido en una 
sóla linea de texto. Si estamos acostumbrados a programar en С o C++, sabremos 
que con este lenguaje ocurre lo mismo: las diferentes líneas y tabulaciones dan orden 
y legibilidad al programa, pero el mismo podría escribirse en una solo línea. En C, las 
llaves y puntos y comas son significativas, no así los espacios o retornos de carro. 


En XML lo significativo son las aperturas y cierres de etiquetas. 


А continuación vamos а crear un [= Proyecto - Escribe 

Ако Precio yiia Hong _ AA a 
programa de consola llamado | узета љ oj (Sere неона |$ coros 
EscribeXML, y dentro de él un 
único módulo modMain con una 


función Main. 


шай básicos раш) 


El programa tendrá una referencia | __ ПЕ мм» ылары ЭЧЕ. 
al componente gb.xml. Figura 1. Proyecto Escribe XML. 





Definimos y creamos un objeto XmIWriter. Tras esto, lo abrimos con Open para 
comenzar la escritura. Este método acepta tres parámetros: el primero, obligatorio, 
es el nombre del fichero a escribir, que puede ser una ruta dentro del sistema de 
archivos o una cadena en blanco, en cuyo caso se escribirá en memoria, y luego podre- 
mos obtenerlo como una cadena para, por ejemplo, enviarlo por la red a un equipo 
remoto, El segundo es opcional, e indica que deseamos que tenga indentación (como 
se comentó antes, para aumentar su legibilidad), o bien si se escribirá en una sola 
línea, para ahorrar espacio, a cambio de hacerlo ilegible desde un editor no especia- 
lizado. El tercero, también opcional, sirve para, si se desea, especificar la codifica- 
ción, diferente de UTF-8, 


* Gambas module file 
PUBLIC SUB Main() 
DIM Xml AS XmlWriter 
Xml = NEW XmliWNriter 


Xml.Open(“”, TRUE) 


Indicar una codificación diferente sirve рага que ésta quede reflejada al inicio del 
documento, pero no realizará por nosotros la conversión de las cadenas que escriba- 


mos, tarea que habremos de hacer con funciones como Солу, si procede. 
Escribimos la primera sección. Hemos de introducir una etiqueta de apertura, tarea 
que se realiza con el método StartElement:; 
Xml .StartElement (“conexiones”) 
Además dispone de un atributo “version” con valor “1.0”: 
Xml.Attribute(“version”,"”1.0”) 
En este caso también podemos unir las dos instrucciones anteriores en una sola: 
StartElement acepta un parámetro opcional, consistente en una matriz de cadenas 
que sean pares de valores atributo-valor del atributo: 
Xml .StartElement (“conexiones”, [“version”, “1.0”]) 
Dentro de esta sección tenemos cada una de las conexiones definidas. Comenzamos 


por la primera que, al igual que antes, es una etiqueta de apertura, con un nombre 


y dos atributos, en este caso: 
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Xml .StartElement (“conexion”, [“id", “castuonet”, 
"1оса]" F "0" ] ) 


Dentro de esta región, disponemos de una nueva apertura de etiqueta para el telé- 


fono: 
Xml .StartElement (“telefono”) 
Contiene un texto que comprende el número de teléfono: 
Xml. Text (“1199212321”) 
Tras este paso cerramos la etiqueta: 
Xml .EndElement () 
No obstante, podemos resumir las tres instrucciones anteriores en una sola, válida 
para estos elementos simples que tan sólo contienen un texto dentro (o nada) y luego 
se cierran. 
Xml .Element (“telefono”, “1199212321") 
Para los DNS iniciamos una etiqueta “dns” con un atributo: 
Xml .StartElement (“dns”, [“primario”, “1"]) 
Incluimos el texto con la ЇР: 
xml. Text (“127.0.0.2”) 
Y finalizamos la sección: 


Xml .EndElement ( ) 


Lo mismo para el segundo DNS: 


Xml.StartElement(“dns”, [“primario”, “0”]) 
Xml. Text (“127.0.0.3*) 
Xml . EndElement () 


Finalmente, cerramos la etiqueta “conexion” que contiene los elementos anteriores 


relativos a esa conexión: 


Xml . EndElement () 


Procedemos de igual manera para la segunda conexión, tal y como podemos obser- 


var en el siguiente código: 


Xml .StartElement (“conexion”, [“id”, “limbonet”, “local”, 
ETG 
Xml .Element (“telefono”, “229943484") 





Xml .StartElement(“dns”, [“primario”, “1"]) 
Xml.Text(“127.0.10.10"”) 

Xml .EndElement () 

Xml .StartElement (“dns”, [“primario”, “0”]) 
Xml .Техі(“127.0.20.42") 

kml .EndElement ( ) 

Xml .EndElement () 


Finalmente cerramos el documento para que se escriba. 51 hubiésemos especificado 
un nombre de fichero, sería ahora cuando se volcaría al fichero al haberlo hecho, en 


nuestro caso, en memoria, 


La llamada a EndDocument nos devuelve una cadena con el documento XML, que 


mostramos por la consola: 


PRINT Xml.EndDocument () 
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El programa completo queda de la siguiente manera: 


* Gambas module file 


PUBLIC SUB Main() 


DIM Xml AS XmlWriter 


Xml = NEW XmlWriter 


Xml .Ореп(“", TRUE) 


Xml .StartElement (“conexiones”, [“version”, “1.0”]) 


xml .StartElement (“conexion”, [“id”, “castuonet”, 
“local”, 03) 

Xml .Element (“telefono”, “1199212321") 
Xml.StartElement(“dns”, [“primario”, “1”]) 

kml .Text(“127.0.0.2") 

Xml .EndElement () 

Xml.StartElement(“dns”, [“primario”, “0”]) 

Xml . Text (“127.0.0.3") 

ml ,EndElement () 

Xml .EndElement ( ) 


Xml .StartElement (“conexion”, [ "ій", “limbonet”, 
“local”, “1"]) 

Xml .Element (“telefono”, “229943484") 

ml .StartElement(“dns”, [“primario”, “1"]) 
Xml.Text(*127.0.10.10"”) 

Xml .EndElement () 

Xml .StartElement( “dns”, [“primario”, *0"]) 

kml. Text (“127.0.20.42") 


Ххт1.ЕПаЕ1етеп+ ( ) 
Xml .EndElement ( ) 


PRINT Xml.EndDocument ( ) 


1 ejecutarlo, veremos el documento por la consola. Lo modificamos рага que se 
scriba en un fichero en lugar de еп la consola, lo cual nos servirá para leerlo a con- 
nuación en un ejemplo de lectura de fichero XML, Para ello modificaremos el méto- 


o Open: 

Xml ,Open(User.Home £ “/conexiones.xml”, TRUE) 
"eliminaremos la instrucción PRINT al final: 

Xml . EndDocument ( ) 


n este caso, la llamada al método EndDocument volcará el documento en un fiche- 


y dentro de nuestra carpeta personal, llamado conexiones.xml. 


El fichero abierto con Open no se vuelca realmente al disco duro hasta la llamada a 
EndDocument. А su vez, el método EndDocument se encarga de cerrar todas las eti- 


quetas que hubieran quedado abiertas, para garantizar la coherencia XML de éste. 


exploramos la clase XmlWriter, observaremos que, además de los métodos 
mentados, aporta otros para escribir comentarios y elementos correspondien- 
al lenguaje DTD, entre otras caracteristicas. También dispone de los métodos 
áticos Base64 y BinHex, que convierten una cadena a las codificaciones con estos 
mbres. Dichas codificaciones permiten introducir datos binarios dentro de un 


nero XML. 


7. KML 
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7. 2 Lectura con XmiReader 


[гїї гүп Modelos de lectura 


Al menos existen tres métodos para leer los contenidos de un fichero XML: 


1. Un método se basa en leer el fichero de principio a fin. El lector va generan- 
do eventos conforme se entra y sale de los distintos nodos del documento, y 
los gestores de eventos escritos por el programador van recibiendo la infor- 
mación. Esta forma de trabajo aún no se ha implementado en el componen- 


te gb.xml, aunque se prevé su inclusión en futuras versiones. 


2. Otro método consiste en cargar el documento completo en memoria, para 
luego navegar por él, con lo cual se obtiene gran flexibilidad a costa de un 
consumo considerable de recursos del sistema. Este método está parcialmen- 
te implementado en Gambas a través de la clase XmiDocument, sí bien su fina- 
lización no está prevista hasta futuras versiones, y no se recomienda su empleo 


para lectura de ficheros XML. No obstante, esta clase ya se emplea para trans- 





formaciones XSLT, como veremos más adelante en este capítulo, 


3. Por último, el método que consume menos recursos y aporta bastante sim- 
plicidad de aprendizaje y uso, es disponer de un cursor, que sólo se mueve 
hacia adelante, de nodo en nodo, y que en cada momento podemos emplear 
para conocer el contenido y tipo de cada nodo. Si hemos trabajado con la pla- 
taforma NET" о Mono'"", nos será familiar la clase XmlReader y sus deri- 
vadas, como XAmlTextReader, que trabajan de la misma manera. Este modo de 
trabajo se encuentra perfectamente soportado еп el componente gb.xml a tra- 


vés de la clase Xml Reader. 
Planteamiento inicial 
En el caso de Gambas, la lectura de documentos la realizaremos utilizando objetos 


de la clase AmlReader. 


El código de lectura resultará más complejo, al tener en cuenta varios aspectos: 


* Rechazar cada fichero no válido: puede haber ficheros con formato no XML o 


que contienen datos sin sentido para nuestra aplicación. 


* Ignorar datos no conocidos: es posible que un documento contenga datos que 
no nos interesan, pero se han añadido al fichero por otra aplicación en previ- 
sión de futuros usos (puede haber, por ejemplo, una etiqueta <tarifa> dentro 
de cada conexión). También una etiqueta conocida puede contener atributos 


desconocidos. 


* Orden desconocido: en un fichero XML no es relevante el orden en que se escri- 
ben los nodos hijos de un nodo, es decir, que estos dos ejemplos deberian ser 


dados por válidos: 


<conexion> 
<dns>... 
<telefono>. .. 
<dns>.. 
</conexion> 





<conexion> 
<telefono>.... 
<dns>... 
<dns>... 


</conexion> 


Si la aplicación espera encontrar el nodo telefono antes del nodo dns, fallará 


al tratar el primer fichero, que, sin embargo, contiene la misma información. 


* Ignorar etiquetas sin interés para nuestra aplicación: XML, como indicamos 
brevemente al principio, prevé la posibilidad de añadir comentarios (simila- 
res a los comentarios de cualquier programa, sin uso para éste pero que aumen- 
tan la legibilidad), nodos DTD, etc. Habremos de pasar sobre estos nodos igno- 


rándolos y sin presuponer si existen o no. 
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Cuantas más posibilidades añadamos a nuestro código de salvar lo desconocido, más 
flexible haremos nuestro lector XML para permitir la lectura de datos provenientes, tal 
vez, de programas escritos por varios programadores con los que no tenemos con- 


tacto, o que tienen pensamientos algo diferentes acerca del contenido del fichero. 


00000 Un ejemplo de lectura 
Crearemos un proyecto gráfico llamado LeeXML, con un formulario FMain, que ten- 
drá la propiedad Arrangement con el valor Fill, y un único control Tree View еп su inte- 


rior llamado Arbol. El programa contendrá una referencia al componente gb.xml. 


@ Proyecto - Lea XML 
Archivo Proyecto Wia Horrmmioniat =i 
Ortesis 
209000 


=" 
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Figura 2. Proyecto LeeXML. 


En la apertura del formulario leeremos el fichero XML. El método Form_Open que- 


dará así: 


* En primer lugar definimos el objeto XmlReader, lo creamos y tratamos de abrir 
el fichero XML. Si el fichero no existe, o no atiende a este formato, se genera- 


rá un error en ese punto. 


PUBLIC SUB Form Ореп() 


DIM Xml AS XmlReader 

Xml = NEW XmlReader 

TRY Xml.Open(User.Home £ “/conexiones.xml") 

IF ERROR THEN 
Message.Error(“Fallo al abrir el fichero indicado”) 
RETURN 

END ТЕ 


* Entramos en un bucle en el que leemos cada nodo avanzando por el conteni- 
do del fichero. Nos interesa encontrar el primero de tipo Element y que su nom- 
bre sea conexiones. De no ser así, el fichero no contendría datos de interés y lo 
rechazaríamos. Pero si es correcto, llamaremos a una función RellenaArbol, 
donde trataremos estos datos. 

IF Xml.Node.Type = XmlReaderNodetype.Element THEN 
ТЕ Xml.Node.Name = “conexiones” THEN 
RellenaArbol (Xml) 
ELSE 
Message.Error(“El documento no contiene datos 
de conexiones”) 
Xml .Close() 


END IF 


END IF 
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Por cada iteración del bucle, empleamos el método Read, que sitúa el puntero inter- 
no en el siguiente nodo del fichero XML. En este proceso, puede darse un error si el 
puntero llega a una zona donde el fichero está corrupto, es decir, que no cumple la 


norma XML y, por tanto, no puede ser leído. 


TRY Xml.Read() 
ТЕ ERROR THEN 

Message.Error (“Formato XML no válido”) 
END IF 


Si llegamos al final del fichero (tras el último nodo), terminamos el bucle, Esta cir- 
cunstancia se puede conocer porque la propiedad Eof del objeto XmilReader toma el 
valor TRUE. 
ТЕ Xml.Eof THEN BREAK 
LOOP 


Tras la lectura del fichero, cerramos el objeto XmlReader, 


TRY Xml.Close() 


END 


Vamos ahora a implementar el procedimiento RellenaArbol. Entramos de nuevo 
en el bucle y, en primer lugar, leemos el siguiente nodo para situarnos dentro de 


conexiones. 


En este caso habremos de seguir leyendo por cada uno de los elementos conexión 
que existen dentro de la etiqueta principal conexiones, y salir de la función cuando 


encontremos el final de esta etiqueta: 


PUBLIC SUB RellenaArbol (Xml AS XmlReader) 


DO WHILE TRUE 


TRY Xml.Read() 
IF ERROR THEN RETURN 


Si encontramos un nodo de tipo Element que se llame conexion, llamaremos a una 
función llamada Rellenaltem para tratarlo. Pero si su nombre es desconocido para 
nosotros, lo ignoraremos, saltando todo su contenido para llegar al siguiente nodo 
del mismo nivel, con el método Next. 

IF Xml.Node.Type = XmlReaderNodeType.Element THEN 


IF Xml.Node.Name = “conexion” THEN 


Rellenaltem(Xml ) 





ELSE 


TRY Xml.Next() 
IF ERROR THEN BREAK 


END IF 


IF Xml .Node.Name = “conexiones” 
IF Xml.Node.Type = XmlReaderNodeType. 
EndElement THEN BREAK 

END IF 


END IF 
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LOOP 


Rellenaltem es el procedimiento más complejo, en el cual leeremos el contenido de 


cada conexión exitente, 
PUBLIC SUB Rellenaltem(Xml AS XmlReader) 


DIM Limite AS Integer 
DIM sNodo AS String 
DIM sLocal AS String 
DIM sPrim AS String 


En primer lugar vamos a recoger los datos de los atributos de la etiqueta conexion. 
Para ello, hemos de iterar con la propiedad Attributes del nodo. A lo largo del pro- 


ceso de iteración iniciado con FOR EACH, el puntero interno del lector XML pasa- 





rá por cada uno de los atributos del nodo, que a su vez son nodos, cuyo nombre y 
valor es el nombre y valor del atributo. Finalizado el proceso de iteración, el puntero 
vuelve al nodo sobre el que estábamos situados, y con los datos recabados, añadimos 


en nuestro control Tree View, un nodo al efecto para su representación gráfica, 
FOR EACH Xml.Node.Attributes 
ТЕ Xml.Node.Name = “id” THEN sNodo = Xml.Node.Value 


IF Xml.Node.Name “local” THEN sLocal = Xml.Node. 
Value 


IF sNodo <> *"” AND sLocal <> *" THEN 


IF sNodo = “0” THEN 


TRY Arbol.Add(sNodo, sNodo £ “ (local)”) 
ELSE 

TRY Arbol.Add(sNodo, sNodo £ ” (macional)"”) 
END IF 


END IF 


Pasamos ahora al interior del nodo conexion para extraer información de sus nodos 
hijo, es decir, las DNS y el número de teléfono. Buscaremos nodos de tipo Element 


y en función de su nombre actuaremos de un modo и otro. 


TRY Xml.Read() 
IF ERROR THEN RETURN 


DO WHILE TRUE 
IF Xml.Node.Type = XmlReaderNodeType.Element THEN 


Para el caso del teléfono, pasaremos del nodo actual (la etiqueta teléfono), al siguien- 
te nodo que contendrá el texto con el número de teléfono, (podríamos, no obstan- 
te, mejorar el algoritmo contemplando la posibilidad de encontrar algo distinto a 
un nodo de texto, cosa que no haremos aquí por no complicar más el código, que 


siempre puede resultar complejo al principio). 


CASE “telefono” 
TRY Xml.Read() 
TRY Arbol.Add(sNodo £ “-tel”, “tel: ” 4 
Xml .Node.Value, NULL, sNodo) 


Si el nodo es de tipo “dns”, tendremos que comprobar el valor del atributo que indi- 


са, si es DNS primario o no, y luego leer el texto que contiene la IP: 





7. XML f 


CASE “dns” 

sPrim = “0” 

FOR EACH Xml.Node.Attributes 
IF Xml.Node.Name = “primario” THEN sPrim = 
Xml .Node.Value 

NEXT 

TRY Xml.Read() 

IF sPrim = “0” THEN 
TRY Arbol.Add(sNodo £ “-dns2”, “-dns2" £ 
Xml .Node.Value, NULL, sNodo) 

ELSE 
TRY Arbol.Add(sNodo £ “-dns1”, “-dnsl” & 
Xml .Node.Value, NULL, sNodo) 


END IF 


END SELECT 





Una vez leido el nodo, pasamos al siguiente y continuamos leyendo hasta encontrar 
uno de tipo End Element, donde sabremos que hemos encontrado el final del nodo 


conexion. 


TRY Xml.Next() 
IF ERROR THEN BREAK 


LOOP 
ELSE 
IF Xml.Node.Type = XmlReaderNodeType.EndElement 


THEN BREAK 


END IF 


TRY Xml.Read() 
IF ERROR THEN BREAK 
LOOP 


e es el código completo expuesto: 


* Gambas class file 


PUBLIC SUB Rellenaltem(Xml AS XmlReader) 


DIM Limite AS Integer 
DIM sNodo AS String 
DIM sLocal AS String 
DIM sPrim AS String 


FOR EACH Xml.Node.Attributes 


IF Xml.Node.Name = “id” THEN sNodo = Xml .Node.Value 
IF Xml.Node.Name = “local” THEN sLocal = Xml.Node. 
Value 


IF sNodo <> *"” AND sLocal <> *” THEN 


IF sNodo = “0” THEN 

TRY Arbol.Add(sNodo, sNodo & ” (local)”) 
ELSE 

TRY Arbol.Add(sNodo, sNodo £ “ (nacional)"”) 
END IF 
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END IF 


TRY Xml.Read() 
IF ERROR THEN RETURN 


DO WHILE TRUE 
IF Xml.Node.Type = XmlReaderNodeType.Element THEN 
SELECT CASE Xml.Node.Name 
CASE “telefono” 
TRY Xml.Read() 
TRY Arbol.Add(sNodo £ “-tel”, “tel: “ & Xml. 


Node.Value, NULL, sNodo) 


CASE “dns” 





sPrim = “0” 

FOR EACH Xml.Node.Attributes 
IF Xml.Node.Name = “primario” THEN sPrim 
= Xml.Node.Value 

NEXT 

TRY Xml.Read() 

IF sPrim = “0” THEN 
TRY Arbol.Add(sNodo & “-dns2", “dns2: ~ Е 
kml .Node.Value, NULL, sNodo) 

ELSE 
TRY Arbol.Add(sNodo £ “-dnsl1", “dnsl: “ & 
Xml .Node.Value, NULL, sNodo) 

END IF 


END SELECT 


TRY Xml.Next () 
IF ERROR THEN BREAK 


ELSE 


IF Xml.Node.Type = XmlReaderNodeType .EndElement 
THEN BREAK 


END IF 


TRY Xml.Read() 
IF ERROR THEN BREAK 


LOOP 


PUBLIC SUB RellenaArbol(Xml AS XmlReader) 





DO WHILE TRUE 


TRY Xml.Read() 
IF ERROR THEN RETURN 


IF Xml.Node.Type = XmlReaderNodeType.Element THEN 
IF Xml.Node.Name = “conexion” THEN 


Rellenaltem(Xml) 


TRY Xml.Next() 
IF ERROR THEN BREAK 
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END IF 


IF Xml.Node.Name = “conexiones” AND Xml.Node.Type 
= XmlReaderNodeType.EndElement THEN 


END IF 


LOOP 


PUBLIC SUB Form Open (|) 
DIM Xml AS XmlReader 
Xml = NEW XmlReader 
TRY Xml.Open(User.Home £ “/conexiones.xml”) 
IF ERROR THEN 


Message.Error (“Fallo al abrir el fichero indicado”) 
RETURN 


IF Xml.Node.Type = XmlReaderNodetype.Element THEN 


IF Xml.Node.Name = “conexiones” THEN 


RellenaArbol (Xml) 


ELSE 


Message.Error(“El documento no contiene datos 
de conexiones”) 


Xml.Close() 


END IF 


END IF 


TRY Xml.Read() 
IF ERROR THEN 

Message.Error(“Formato XML no válido") 
END IF 





IF Xml.Eof THEN BREAK 


LOOP 


TRY Xml.Close() 





чна 


tal: 1199212321 Este código dará lugar, al ejecutarse, a una 


drast: 127.0.0.2 | А р на ‚аны 

dng2: 127003 visión en árbol de los datos contenidos еп 
Ё imbonet nacional) 

tel: 229943484 el ficher O XML. 


das: 127.0.10.10 
daza: 127 02042 


Ш Figura З. Resultado del fichero XML. 
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пп пп ¿Qué es Х© ТР 

Acompañando a XML, XSLT permite realizar conversiones de formatos de docu- 
mentos. Con XSLT se puede, por ejemplo, convertir datos de un documento XML 
en un documento HTML, o cosas más complejas como generar un documento PDF 


o StarWriter a partir de datos XML que nosotros hayamos diseñado. 


Gracias a XSLT se puede separar de modo definitivo la información de su represen- 
tación, por lo cual se emplea extensivamente en aplicaciones web, que pueden reci- 
bir datos de una base remota en formato XML y convertirlos, generalmente, a HTML 


para enviarlos al cliente con una representación agradable. 


XSLT se basa en unos documentos, con formato XML, llamados plantillas, que con- 
tienen las instrucciones necesarias para convertir un determinado documento XML 
(con las etiquetas y atributos propios de dicho documento) en otro con distinto 


formato. 


XSLT es extenso para tratarlo aquí en profundidad aunque, como siempre ocurre 
con los estándares abiertos y casi nunca con los formatos propietarios, podemos 
encontrar fuentes especificas de información adicional, por ejemplo en 


http: //www.w3schools.com. 


20000 Una plantilla de ejemplo 
Cada plantilla XSLT se refiere al contenido de un determinado documento XML. 
Supongamos un documento XML como éste, en el que se encuentra un listado de 


socios: 


<?xml version="1.0"?> 
<socios> 
<socio> 
<numero>1123</numero> 
<nombre>Juan L. Aquilar</nombre> 


<tipo>Honorario</tipo> 

</socio> 

<socio> 
<numero>2135</numero> 
<nombre>Salvador G. Tierra</nombre> 
<tipo>Regular</tipo> 

</socio> 

<socio> 
<numero>9654</numero> 
<nombre>Alberto N. Parra</nombre> 
<tipo>Regular</tipo> 

</socio> 


</socios> 


Las plantillas XSLT siempre comienzan con unos identificadores. El primero, de 
documento XML, ya lo conocemos, el segundo denota que lo que viene a continua- 


ción es un documento XSLT, 


<?xml version="1.0"”> 
<xsl:stylesheet version="1.07 xmlns:xsl="http:// 
WWW. w3 .org/1999/XSL/Transform"> 


Tras esto, se escribe el código en sí, en el cual generaremos una tabla HTML con los 


datos. 


<xsl:template match="/"> 
<html> 
<body> 
<hl>Listado de socios</hl1> 
<table border="1"> 
<tr> 
<th><b>Nro.</b></th> 
<th><b>Nombre</b></th> 


/. АМ. 





<th<b>Tipo</b></th> 
</tr> 
<xsl:for-each select="socios/socio"”> 
<tr> 
<td><xsl:value-of select="numero"/></td> 
<td><xsl:value-of select="nombre”/></td> 
<td><xsl:value-of select="tipo"/></td> 
</tr> 
</х51:Ғог-еасһ> 
</table> 
</body> 
</html> 
</xsl:template> 
</xsl:stylesheet> 


Como podemos observar, vamos embebiendo las etiquetas HTML; empleamos el 


iterador for each para tomar cada elemento del fichero XML; y situamos en cada 





punto de la tabla uno de los campos elegidos. 

Transformando el documento con Gambas 
Hasta aquí, lo que tenemos es un documento XML y una plantilla XSLT, pero ahora 
necesitamos un motor que realice la conversión. Para ello guardaremos el fichero 
con datos en nuestra carpeta personal como socios.xml, y la plantilla como socios.xsl. 
Creamos un nuevo proyecto de consola llamado TransformaXSLT, con un único 
módulo modMain y una referencia al componente gb.xml.xslt. 
El código será tan simple como éste: 

* Gambas module file 


PUBLIC SUB Main() 


DIM Documento AS NEW XmlDocument 


DIM Plantilla AS NEW XmiDocument 
DIM Resultado AS XmlDocument 


Documento. Open (User.Home £ “/socios.xml”) 
Plantilla.Open(User.Home & “'socios.xsl") 


Resultado = XSLT.Transform(Documento, Plantilla) 


Resultado,Write(User.Home £ “/socios.html”) 


уто indicamos anteriormente, la clase XmiDocument carga y verifica un documento 
ML en memoria. En este caso cargamos dos documentos: el primero, llamado 
3cumento, contiene los datos de los socios; el segundo, Plantilla, es la hoja XSLT que 
dica cómo transformarla en HTML. La única clase que aporta el componente 

gb.xml.xslt, llamada ХЅІТ, es estática y dispone de un 


único método Transform, al cual pasamos como pará- 





no 2h |. metros el documento y la plantilla, y devuelve un 
istado de socios | documento nuevo con el formato indicado, en este 


БТ caso una página web. Escribimos dicha página en un 
123 Juan L, Aguilar Honorario] a? st 

¡3siSalvador б. Tierra Regular | fichero en nuestra carpeta personal, y salimos. Si con- 
654 !Alberto N. Parra ¡Regular 


——_— 





sultamos con el navegador la página obtenida, vere- 
Figuro 4, Resultado de la mos un resultado como el que se muestra en la figu- 


página obtenida. ra de la izquierda. 


7. Д Acerca de XML-RPC 


futura versión Gambas 2, dispondrá también de un componente XML-RPC. Estas 
las se refieren al uso de XML como sistema para comunicar dos procesos en dos 
iquinas diferentes. XML-RPC es un subconjunto de XML que define un lengua- 


dara llamar a procesos remotos. 
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Un servidor XML-RPC acepta llamadas remotas a sus métodos, El proceso es muy 
similar a llamar a una función local dentro de un programa: el cliente llama a la fun- 
ción pasando unos parámetros (números enteros, cadenas, estructuras de datos... ); 
y el servidor procesa la llamada y devuelve al cliente un resultado, que también será 


una cadena, número, fecha, etc. 


El componente XML-RPC aportará varias facilidades para implementar estos pro- 


CesOs. 


En el lado servidor dispondrá de un parser, en el cual definiremos los nombres de los 
métodos que se aceptarán, así como la correspondencia entre estos y otros locales del 
programa servidor. De este modo, ten sólo hay que pasar la petición del cliente al par- 
ser, el cual se encargará de verificar el número y tipo de los parámetros, y devolver un 


error al cliente, o llamar a la función local y devolver el resultado al cliente. 


El servidor podrá funcionar en solitario, implementando un pequeño servicio web 


para atender las peticiones, o bien funcionar de modo controlado por la aplicación 





servidora, con el fin de implementar CGls que se sirvan desde Apache, por ejemplo, 


En la parte cliente es posible definir la URL del servidor y la forma de cada método, 
Igualmente podrá actuar en solitario, solicitando mediante una petición web la lla- 
mada al servidor. También se puede crear el documento XML de la petición, dejan- 


do a la aplicación el diseño del transporte y recepción de los datos con el servidor, 


ii 


8. | Lenguajes 
orientados a objetos y 
herencia 


Ya hemos visto una breve introducción al mundo de la programación 
orientada a objetos. Podemos decir que un objeto es una herramienta, por ejem- 
plo, un túnel de lavado. La clase son los planos de esa herramienta, en los cuales 
están descritos los distintos cepillos giratorios, los conductos de agua y detergente, 
los secadores de aire caliente, los distintos sensores, el proceso automático paso a 


paso desde la entrada del coche hasta su salida, etc. 


Cuando creamos un objeto, el sistema nos devuelve una herramienta, en este caso, 
un túnel de lavado dispuesto para funcionar, que se ha creado a partir de los planos 


que nosotros habiamos escrito en la clase. 
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Ahora bien, supongamos que como vendedores de túneles de lavado deseamos inno- 
var y añadir una fase de encerado a nuestro túnel, Venderemos máquinas baratas sin 
encerado y otras más caras con esta funcionalidad añadida. La primera opción sería 
ponerse manos a la obra con nuevos planos desde cero, pero esto es costoso en tiem- 
po y dinero. Lo mejor sería tomar los planos ya existentes y, a partir de ellos, añadir 


la nueva función. 


En esto consiste precisamente la herencia: partimos de una clase ya escrita, pro- 
bablemente grande y con mucha funcionalidad, y a partir de ella creamos otra clase 
(otros planos) que tiene el mismo rendimiento del original, más nuevas funcio- 
nes que añadimos, la cual hereda, de ahí viene el término, la funcionalidad de su 


clase padre. 


Además de añadir nuevas funcionalidades, podremos modificar también el com- 
portamiento de las ya existentes para adaptarlas a la nueva máquina a crear, por 
ejemplo, los cepillos del túnel de lavado con cera tendrán que ser de un material que 


no se disuelva con los productos químicos que componen nuestra cera. 


En resumen, vamos a explicar cómo crear clases que provienen de otras, que se com- 
portan en primera instancia como la original y que añaden nuevas funcionalidades o 
modifican algunas de las existentes, eliminando así la necesidad de escribir las mis- 


mas lineas de código una y otra vez. 


anann В. 2 Conceptos necesarios 


50000 La clase padre 

Empecemos creando los planos de la máquina original, es decir, creemos una clase 
padre, Vamos a escribir una clase a partir de la cual crearemos objetos. Dichos obje- 
tos almacenan varios números reales y, una vez introducidos, nos devuelve la media 


aritmética de todos ellos. 


Ahora, vamos a crear un nuevo proyecto de consola, lo llamamos EstudioHerencia 
г dentro de él un módulo de inicio llamado modMain, que nos servirá рага las 


ruebas. 


Además, creamos también una clase, llamada ClsCalculo, en la que escribiremos el 


sódigo principal a estudiar, 
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Figura 1. Proyecto nuevo de consola EstudioHerencia. 





Dentro de ClsCalculo escribiremos el código necesario: tendremos una matriz pri- 
rada de números reales, donde añadimos cada uno de los números a calcular y 
cuatro métodos: el primero, _New, es el constructor que sirve para inicializar la 
natriz; el segundo, _Free, libera la matriz al destruir el objeto; el tercero, Add, 
made un nuevo valor a la serie; y el cuarto, Average, calcula la media aritmética 


le los números almacenados: 


' Gambas class file 
PUBLIC _Numbers AS Float[] 


PUBLIC SUB _new() 


_Numbers = NEW Float[] 
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PUBLIC SUB _free() 


_Numbers.Clear() 
_Numbers=NULL 


МГ 


PUBLIC SUB Add(Vl1 AS Float) 


_Numbers.Add (Vl) 


PUBLIC FUNCTION Average() AS Float 


DIM Nm AS Float 
DIM V1 AS Float 





IF _Numbers.Count = O THEN RETURN О 


FOR EACH V1 IN _Numbers 
Nm += V1 


RETURN Nm / _Numbers.Count 


A la hora de realizar operaciones matemáticas, que la división por cero no está per- 
mitida, hemos de proveer un valor por defecto para ese caso o generar un error en 


tiempo de ejecución si procede. 


Ahora escribimos algo de código adicional para probar nuestra clase, dentro de 
modMain. Nos limitamos a crear un objeto a partir de nuestra clase, introducir tres 
valores y mostrar en la consola la media de esos tres números: | 


PUBLIC SUB Main() 


DIM Calculo AS NEW ClsCalculo 


Calculo.Add(12.5) | 
Са1си1о.АЯа (23.8) | 


PRINT Calculo.Average() 


Al ejecutarlo, obtendremos el valor 14.6 si todo fue bien. 





Calcu Lo. Observemos también que nuestra 


matriz tiene un nombre algo curio- 


PRINT "El Average 
Ө Numbers 


so Numbers. La matriz ha de ser | 





pública porque más tarde la emple- 
Figura 2. Ejemplo de matriz Numbers. aremos en la clase hija: si fuera pri- 
vada, quedaría restringida al ámbi- 


to de la clase original y no podríamos usarla desde las clases hijas. 


Ahora bien, si hubiésemos llamado a la matriz simplemente Numbers, el progra- 


mador vería esta variable desde el sistema de autocompletado de código. 





Las clases hijas de otra clase no pueden emplear las funciones, propiedades o varia- 


bles privadas de la clase padre. 


| 


В. Herenci È 
MA Реж 4 за A 6—4 


аа. 
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Sin embargo, los métodos públicos que 


comienzan por el signo de subrayado 





PRINT “517 Average 


no se muestran nunca en el sistema de 
autocompletado ni en el sistema de MW Figura 3. Variables públicas no visibles. 
ayuda, cuando creamos componentes. 

Puesto que en Gambas no existe el concepto de C++ y otros lenguajes de propiedad, 
variable o función Protegida (accesible sólo desde la clase y sus clases hijas), esta fun- 
cionalidad nos permite declarar variables públicas no visibles desde el código princi- 


pal, manteniendo asi una interfaz más coherente con nuestros propósitos. 


Los nombres de variables, propiedades o funciones que comienzan con un subra- 
yado, no se muestran ni en el sistema de autocompletado, ni en el de ayuda de 


Gambas, 


NOTA PARA PROGRAMADORES DE C++ 
En Gambas existen propiedades, métodos y variables privadas o públicas, pero no 


protegidas. 


опоопо La case hija. Palabra clave INHERITS 
Supongamos ahora que deseamos tener una nueva clase que se comporte como la 
inicial, pero tenga una propiedad adicional, de sólo lectura, que nos devuelve el 


número de elementos que hemos almacenado. 


Crearemos, entonces, una nueva clase llamada ClsCalculo2, en la cual introduciremos 


al inicio la palabra clave INHERITS seguida del nombre de la clase padre (ver Figura 4). 


Esto es todo lo necesario para tener una clase que hereda todas las propiedades de su 
clase padre. Probemos a modificar el código del método Main() de modo que cree- 


mos un objeto de la segunda clase, en lugar de la original. 


ке project ттт То 7 
|о®@штөб а día 
> ш T rig 

~  ЕвїїнїїМїәгепсїа PUBLIC SUB МаїлЇ[!| 


= Еу AE r 
$ С1вСаїсшїю Ш DIM Calculo AS МЕШ CisCalculo 


Ns 20) |1) ж i „а А 4] 


Салі аа нны le Ti be 


и | Calculo. Add1t2,5) 
атэ calculo. доз. в} 
| E bp] maditain Calculo da 17,5) 
-Ciilata 


PRINT Calculo, Averaget 1 


т | Г "ИЕП А ЩЕ i яғ ii -A = 
[ы © tan с, а а бп Р 
тй glars File 


ÚEIMHERITS Clslalculo 





Figura 4. Nueva clase ClsCalculo2. 
PUBLIC SUB Main() 
DIM Calculo AS NEW ClsCalculo2 
Calculo.Add(12.5) 
Calculo.Add(23.8) 


Calculo.Add(7.5) 


PRINT Calculo.Average () 
END 


Si ejecutamos ahora el programa, observaremos que el resultado 14.6 es exactamente 
el mismo: la nueva clase ya dispone de todos los métodos, propiedades y eventos de 


la original, sin necesidad de escribir el código que los implemente. 


Para escribir uno clase que hereda las características de una clase padre, tecleamos 


INHERITS seguido del nombre de la clase padre, al inicio del código de la nueva clase: 





|! W l Gambas class file 
|| | 
| INHERITS ClsCalculo 


| 


| 
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NOTA PARA PROGRAMADORES De C++ 
En Gambas cada clase hija tiene una sola close padre, no existe el concepto de heren- 


cia múltiple. 


пп гг! Extendiendo funcionalidades. Palabra clave SUPER 
La nueva clase ClsCalculo tiene poco interés por ahora: hace lo mismo que la origi- 
nal. Añadamos entonces en la clase hija la nueva propiedad que nos devuelve el 


número de elementos almacenados: 


' Gambas class file 
INHERITS ClsCalculo 


PROPERTY READ Count AS Integer 


PRIVATE FUNCTION Count_Read() AS Integer 





RETURN SUPER. Numbers .Count 


Estamos empleando una nueva palabra clave por primera vez, SUPER. Sabemos que 
cuando nos referimos a un objeto podemos utilizar, bien el nombre del objeto, o 
bien la palabra clave ME cuando nos reterimos al objeto actual dentro de la propia 
clase. Pues bien, en este caso, la matriz _ Numbers no se encuentra dentro de la clase 


ClsCalculo2, sino dentro de la clase padre ClsCalculo. 


Con la palabra clave SUPER no nos referimos al objeto actual, sino al padre del obje- 


to actual, 


Escribamos ahora el código de la función Main() para aprovechar la nueva caracte- 


rística de nuestra clase hija: 


PUBLIC SUB Main() 


DIM Calculo AS NEW ClsCalculo2 


Calculo.Add(12.5) 
Calculo.Add(23.8) 
Calculo.Add(7.5) 


PRINT “Elementos: “ £ Calculo.Count £ “ - Media: “ £ 
Calculo. Average ( ) 


Como es fácil adivinar, el resultado de la ejecución es: 
Elementos: 3 - Media: 14.6. 


00000 Modificando funcionalidades 

Hasta ahora tenemos dos clases, una de las cuales aporta una propiedad adicional 
Count, y sigue siendo poco útil ya que podríamos, sin más, haber añadido esa fun- 
cionalidad а la clase original ClsCalculo, evitándonos el mantenimiento de dos clases 
diferentes. Vamos ahora a explorar la verdadera potencia del concepto de Herencia, 
y es la posibilidad de reemplazar los métodos y propiedades originales por nuevas 
implementaciones que den lugar a resultados distintos: en este caso, la nueva clase, 
cuando el método Average sea llamado, borrará todos los elementos de la matriz para 
quedarse en blanco, De esta forma, tendremos dos clases con diferente funcionalidad 
partiendo de una base común: los objetos de la clase padre acamulan números sin 


fin, mientras que en la segunda cada llamada a Average los limpia y comienza de сего. 


La clase ClsCalculo2 queda ahora como sigue: 


' Gambas class file 
RITS ClsCalculo 
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PROPERTY READ Count AS Integer 
PRIVATE FUNCTION Count _Read() AS Integer 


RETURN SUPER. Numbers .Count 


PUBLIC FUNCTION Average() AS Float 


DIM Nm AS Float 
DIM VI AS Float 
DIM Total AS Integer 


IF SUPER. Numbers.Count = O THEN RETURN O 


FOR EACH ҮІ ІМ SUPER, Numbers 
Nm += V1 
Total += 1 





SUPER. Numbers.Clear() 


RETURN Nm / Total 


Ahora existe un método Average dentro de ClsCalculo2, y este método reemplaza en 
la clase hija el método Average del padre. Cuando llamemos al método Average de 
un objeto de la clase ClsCalculo2, el intérprete no llamará о la función original del 


padre, sino a la implementación de la clase hija. 


Modificamos la función Main() de pruebas con este nuevo código para comprobar 


el resultado: 


PUBLIC SUB Маіп() 


DIM Calculo AS NEW С15Са1си102 


Calculo.Add(12.5) 
Calculo.Add(23.8) 
Calculo.Add(7.5) 


PRINT “Elementos: * £ Calculo.Count & * ~ Media: ~“ & 
Calculo.Average( ) 


Calculo.Add(31.8) 





PRINT “Elementos: * £ Calculo.Count £ * - Media: “ E 
Calculo.Average( ) 


Como resultado, obtenemos en consola dos líneas que muestran el funcionamien- 


to de la nueva clase: 


Elementos: 3 - Медіа: 14.6 
Elementos: 2 ~ Media: 24.65 


Si еп la primera línea de Main() definimos ahora que el objeto Calculo pertenece a 
la clase padre ClsCalculo, eliminamos el uso de Count, que no existe en el padre, y 


volvemos a ejecutar el programa, observaremos claramente la diferencia: 
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PUBLIC SUB Main() 
DIM Calculo AS NEW ClsCalculo 
Calculo.Add(12.5) 
Calculo.Add(23.8) 
Calculo.Add(7.5) 


PRINT “Media: “ & Calculo.Average() 


Calculo.Add(17.5) 
Calculo.Add(31.8) 


PRINT “Media: * £ Calculo.Average( ) 


En este caso, se calcula primero la media de los tres primeros números y luego la 


media de los cinco números: 


Media: 14.6 
Media: 18.62 


Podemos aprovecharnos más de la herencia, empleando la palabra SUPER que vimos 
anteriormente. La clase original ClsCalculo ya tenía el código necesario para calcu- 
lar la media, y en la clase hija ClsCalculo2 tan sólo necesitamos borrar los elemen- 


tos de la matriz una vez calculada la media. 


Podemos, entonces, modificar el código de la nueva función, Average, para que llame a 


la original y después borre los elementos, ahorrando, como siempre, tiempo y código: 


i Gambas class file 
INHERITS ClsCalculo 


PROPERTY READ Count AS Integer 


PRIVATE FUNCTION Count _Read() AS Integer 


RETURN SUPER. Numbers.Count 


PUBLIC FUNCTION Average() AS Float 


DIM Nm AS Float 


Nm = SUPER.Average () 
SUPER. Numbers.Clear() 





La nueva función Average ahora se limita a llamar a la original, implementada en la 


clase padre, a almacenar ese valor, borrar los elementos de la matriz y devolver el valor. 


п Reemplazando métodos especiales: New y _Free 

Vamos a crear una nueva clase hija de ClsCalculo, que se comporte como la original, 
Jero que, en este caso, en el momento de inicializarse un objeto de la clase, almace- 
ne unos valores. Pongamos de ejemplo una toma de 
- (8 EstudioMerencia muestras de temperatura, 

--E3 Classes 

-fej CisCalculo 

| 1-9 ОвСаісиіо2 
„гт 
- EjModules 
„Сабага 










Los objetos, al inicializarse, pueden tomar los valores de 
temperaturas de la semana anterior de forma automáti- 
ca para que, después, el programador introduzca los de 
1 Figura 5. Nueva clase la semana en curso y se obtenga la media de la quincena. 
hija ClsCalculo3, Para ello creamos la clase ClsCalculo3, con este código: 
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' Gambas class file 
INHERITS ClsCalculo 


PUBLIC SUB Мем() 


SUPER. Add (12.5) 
SUPER. Add (15.3) 
SUPER. Add (18.4) 
SUPER. Add (19.12) 
SUPER. Add (21.15) 
SUPER. Add (20. 4) 
SUPER. Add (19.5) 


Igualmente escribimos y ejecutamos el código de Main() para comprobar el 


resultado: 





PUBLIC SUB Main() 
DIM Calculo AS NEW ClsCalculo3 


Calculo.Add(29.2) 
PRINT “Media: “ £ Calculo.Average() 


El resultado de la ejecución es: 
Media: 19.44625 


Сото ега de esperar, por lo explicado anteriormente, se ha ejecutado el método _New() 


de nuestra clase hija. Ahora bien, en este método tan sólo añadimos elementos, 


pero no inicializamos la matriz, por lo que de haberse comportado el intérprete como 
en los casos anteriores, habríamos obtenido un error en tiempo de ejecución, al tener 


en el inicio la matriz con valor Nuil. 


Lo que ha ocurrido en realidad, es que al reemplazar el método especial _New(), el 
intérprete ejecuta siempre el método original de la clase padre y luego la nueva imple- 


mentación del hijo. 


El método especial _New() no se reemplaza en las clases hijas como en el resto de 
métodos o propiedades, en su lugar se llama siempre al método original _New() del 
padre para que inicialice todo lo necesario y, después, si existe, se llama ol método 
Мем] de la clase hija. De este modo, el objeto siempre está listo e inicializado cuan- 


do se comienza a trabajar con él. 


Añadamos ahora un destructor _Free() personalizado para nuestra clase heredera, ЁЛ 


en el cual indicamos el valor de la variable _Numbers: 


' Gambas class file 
INHERITS ClsCalculo 


PUBLIC SUB _New() 


SUPER.Add (12.5) 
SUPER.Add(15.3) 
SUPER. Add (18.4) 
SUPER. Add (19.12) 
SUPER. Add (21.15) 
SUPER. Add (20. 4) 
SUPER. Add (19.5) 
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PUBLIC SUB _Егее() 


if SUPER. Numbers=NULL then print “NULO” 


La ejecución del programa da ahora como resultado lo que vemos a continua- 


ción: 


Media: 19.44625 


Con esto se demuestra que el intérprete, como en el caso de _New, ha llamado pri- 
mero al método _Free de la clase original, para llamar luego al método _Free de la 


clase hija. 


Si nos ha surgido alguna duda respecto al orden de ejecución de algunas funcio- 
nes, recordemos que siempre podremos ejecutar el código paso a paso para com- 


probarlo, 


10000 Limitaciones 
La principal limitación de la herencia en Gambas, es que una clase no puede ser 


hija de otra que, a su vez, era hija de una tercera. 


En otras palabras, sólo hay un nivel de herencia y en nuestros ejemplos anteriores 
no podríamos crear una clase ClsCalculo4 que proviniera de ClsCalculo2 o ClsCalculo3, 
puesto que éstas están empleando ya la palabra clave INHERITS para indicar que 


heredan las propiedades de ClsCalculo. 


Esto implica, por ejemplo, que no podemos crear clases que sean herederas de Form, 


pues la clase Form proviene de Window. 


ззвзе З. З Crear un nuevo control con Gambas 


3000500 Planteando el código 
Vamos a examinar la posibilidad de crear nuevos controles gráficos directamente 


desde Gambas, aprovechando el concepto de herencia. 


Crear controles nuevos programados en Gambas aporta dos ventajas funda- 
mentales: su desarrollo es rápido al trabajar en un lenguaje de alto nivel, y el mismo 
código sirve tanto si programamos con gb.gtk, como si lo hacemos con gb. qt, 
ahorrándonos dos implementaciones рага un mismo control con diferentes 


оой. 


Las desventajas son una velocidad menor del código al ser interpretado, cuestión 
que tendrá más o menos importancia según la función del nuevo control, así como 
nenor flexibilidad a la hora de moldear el control, dado que trabajaremos sobre los 
:ontroles previamente aportados con Gambas y no sobre un toolkit para Co C++ 


сото GTK+ о QT, пі a bajo nivel con X-Windows. 


Jara crear un control con Gambas, tenemos que partir de uno que exista ya. 51 esta- 
nos acostumbrados a trabajar con otros entornos RAD de BASIC о С++, nos será 
amiliar partir de un control plantilla con unas propiedades y métodos básicos para 


Tear ипо nuevo, 


Los controles creados con Gambas һап de partir de un control ya existente y creoble, 
a su vez. No se puede partir directamente de la clase base Control, es decir, un con- 
trol creado con INHERITS CONTROL no funcionará, ya que Control no tiene una repre- 
sentación gráfica, sino que es simplemente la base que define las propiedades, méto- 


dos y eventos mínimos para otros controles reales (Label, Button...). 


duestro nuevo control será una etiqueta a la que llamaremos ColorLabel, similar al 


abel, pero que muestra el texto con un gradiente de color. 
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Para dibujar texto en diferentes colores, trazaremos cada letra por separado, desde 
un color inicial Color] hasta un color final Color2, utilizando un algoritmo algo rudi- 
mentario: tomamos la diferencia de valor de los dos colores y vamos aumentando 


el valor del color actual por cada nueva letra que dibujamos. 


Con el fin de trazar cada letra por separado, tendremos que usar la clase Draw sobre 


un control base que será DrawingArea. 


implementación basica 


Creamos un nuevo proyecto gráfico, que llamaremos ри ш т ту 17) 









| р уы --@ сооп. abel 
ColorLabel, para nuestras pruebas. Dentro de él, origi- -S asses 
. . ia 1 Colori abel 
naremos un formulario FMain, también para nuestras | E 
pruebas, así como una clase llamada ColorLabel para аг: | 
1-С Modules 


ү: | ы 
implementar el control. Al igual que una etiqueta nor- Data 


mal, definiremos una propiedad Text con el texto a mos- Figura б. Nuevo 

trar, y añadiremos dos propiedades nuevas Colorl y proyecto gráfico 
Color2 que contienen el valor inicial y final del gradiente. Colorlabel. 

Para manejar las tres propiedades, tendremos tres varia- 

bles privadas: hText para el texto, hColorl para el primer color y hColor2 para el 


segundo color. 


Empezamos, pues, a escribir el código de la clase: 


' Gambas class file 
INHERITS DrawingArea 


PRIVATE hText AS String 
PRIVATE hColorl AS Integer 
PRIVATE hColor2 AS Integer 


PROPERTY Text AS String 
PROPERTY Colorl AS Integer 
PROPERTY Color2 AS Integer 


Implementar las funciones de lectura de las tres propiedades es trivial, basta con 
devolver los valores de nuestras variables privadas (recordemos que estamos escri- 
biendo el código siempre dentro de la clase ColorLabel): 


PRIVATE FUNCTION Colorl Read() AS Integer 


TURN hColorl 





PRIVATE FUNCTION Color2_Read() AS Integer 


RETURN hColor2 


PRIVATE FUNCTION Text _Read() AS String 


RETURN hText 


En cuanto a las funciones de escritura, hemos de asignar el valor que el usuario pasa 
а nuestras propiedades, y hemos de actualizar el control cada vez que una de ellas 


cambia, tarea que realizaremos en una función llamada Redraw(), aún por definir: 
PRIVATE SUB Text Write(Vl AS String) 


hText = V1 
Кедгам( ) 
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PRIVATE SUB Colorl Write(Vl AS Integer) 


hColorl = V1 
Redraw ( ) 


PRIVATE SUB Color2 Write(Vl AS Integer) 


hColor2 = V1 
Redraw() 


Llega el punto de implementar Redraw(), para lo cual recorreremos carácter por 
carácter la cadena almacenada en la variable hText e iremos representando letra por 
letra usando los distintos colores del gradiente. Para calcular la posición en el eje X 
de cada letra, nos servimos del método Font.Width() que determina el ancho de 


cada letra con la fuente actual del control: 


PRIVATE SUB Redraw() 


DIM xPos AS Integer 
DIM Bucle AS Integer 
DIM hColor AS Integer 
DIM hDiff AS Integer 


ME.Clear 

hColor = hColorl 

ТЕ Len(hText) THEN hDiff = (hColor2 - hColor1) / 
Len (hText) 


Draw.Begin(ME) 


FOR Bucle = 1 TO Len(hText) 


Draw.ForeColor = hColor 

Draw. Text(Mid(hText, Bucle, 1), xPos, 0) 

xPos = xPos + SUPER.Font.Width(Mid(hText, Bucle, 1)) 
htolor = hColor + hDiff 


Draw. End () 


Finalmente, nos interesa que el control se encargue por sí mismo del redibujado de 
la ventana. Por defecto, todo lo dibujado sobre un DrawingArea desaparece si la ven- 
tana se oculta tras otra ventana o se minimiza. Para evitarlo, utilizaremos la propie- 
dad Cached de DrawingArea, que se encarga de mantener un buffer y redibujar las 


partes expuestas al usuario del control: 


PUBLIC SUB Мем() 


SUPER.Cached = TRUE 


Probemos ahora el control. Nuestro formulario 
EMain tendrá unas dimensiones de 225x240 pixe- 
les y contendrá un botón llamado BtnPrueba con 


el texto Prueba. 





a o а | 
Figura 7. Texto de prueba sobre El código del formulario consiste en crear un 
el formulario FMain. control ColorLabel en tiempo de ejecución, 


situándolo en el formulario con un texto de ejem- 


plo y dos colores definidos para el gradiente: 
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PUBLIC SUB BtnPrueba Click() 


DIM hLabel AS ColorLabel 


hLabel = NEW ColorLabel (ME) 
hLabel.Font.Size = 18 

hLabel.Move(0, 0, ME.Width, 100) 
hLabel.Colorl = Color,Blue 

hLabel.Color2 = Color.DarkBlue 
hLabel.Text = “Hola desde el ColorLabel” 


Al ejecutar el programa y pulsar el botón, podremos ver ya nuestro control en fun- 
cionamiento. Ha sido una tarea rápida y sencilla, si bien se puede depurar bastante 
el código del control. Por ejemplo, este control tendrá problemas con caracteres con 


código ASCH mayor al 127, ya que en la codificación de Gambas (UTF-8) ocupan 


más de un byte, rompiendo el algoritmo que recoge el texto letra por letra. 


Se puede solucionar convirtiendo la cadena a una codificación que emplee siempre 


un byte por letra (por ejemplo, ISO-8859-1) y 






. ТЕП 


Hola desde el ColorLabel 





reconvertirlo a UTF-8 a la hora de representar- 





lo. También podríamos incluir una propiedad 
para alinear el texto a derecha, izquierda o cen- 
tro, así como mejorar el algoritmo para obtener 
el gradiente, separando los componentes RGB de 
cada color, tareas todas ellas que dejamos si esta- Figura 8. Control Colorlabel en 


mos interesados en practicar, funcionamiento, 


Este nuevo control se puede reutilizar en todos los programas que diseñemos añadiendo 


la clase Colorlabel al proyecto. 


8. 4 Nuevos componentes con Gambas 


Cuando abrimos las propiedades de un proyecto y pulsamos la pestaña Componentes, 
observamos los módulos adicionales que podemos emplear en un programa escri- 


to con Gambas, los cuales aportan nuevas funcionalidades. 


Desde Gambas, tenemos también la posibilidad de crear nuevos componentes, 
Estos pueden ser de cualquier índole, aunque en el próximo ejemplo será un com- 
ponente que aporta un control adicional: el ColorLabel que creamos en el aparta- 


do anterior. 


Si bien vamos a crear aquí un nuevo componente gráfico, los componentes se limitan a 


aportar nuevas clases que no lienen por qué estar relacionadas con la interfaz gráfica. 


Aa! 
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ао 1 | 
O 9b.compress Compression library | | 
Г] gb.crypt MDS/DES crypting component E) 
O gb.db Database access component | 
Г] gb.debug Gambas application debugger helper 
O ab.eval Gambas expression evaluator | 
Г] gb.form Some controls 
| [4] gb.gtk Graphical GTK+ toolkit component || 
| O gbnet Networking component Es | 
| ab 
| Gambas internal native classes 
| Authors: Benoit Minisini 
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Figura 9. Componentes del proyecto. 
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поо п п Preparación del código. Palabra clave EXPORT 

Dentro de un programa Gambas, tendremos diversos módulos, clases y formularios. 
Implementar un control en Gambas supone tan sólo crear un programa que expor- 
tará algunas de sus clases. Preparar ип programa Gambas para ser un componente, 


simplemente implica definir qué clases serán visibles y cuáles no. 


Para indicar que una clase será visible desde el programa principal, se usa la pala- 
bra clave EXPORT al principio de la misma antes del resto del código. Por tanto, 
en nuestro programa ColorLabel indicamos esta palabra clave al inicio de la clase 
ColorLabel: 


' Gambas class file 
EXPORT 
INHERITS DrawingArea 


PRIVATE hText AS String 





Ahora es necesario compilar el programa para tener un ejecutable con la nueva clase 


exportada. 


00500 Archivos necesarios, ubicaciones 
Cada componente Gambas necesita, en primer lugar, del programa en sí, que ten- 
drá siempre como nombre gb.x.gambas, donde x será un nombre que nosotros 


elijamos. 


A partir de ahora, vamos a llamar a nuestro nuevo componente controles y, por tanto, 


el nombre del componente dentro del sistema de archivos será gb.controles. gambas. 


Es necesaria también una ubicación específica para dicho archivo. Todos los com- 
ponentes de Gambas han de estar situados en una carpeta que, salvo que hayamos 
compilado Gambas desde los fuentes empleando una opción - -prefix específica, será 


/usr/lib/gambas2, 


Si hemos compilado Gambas usando una opción - -prefix distinta de /usr en el script 
configure (рот ejemplo, /usr/local), tendremos que buscar las rutas indicadas a partir 


de la que seleccionamos, como /usr/local/lib/gambas2 en este caso. 


Copiaremos nuestro ejecutable a dicha carpeta, para lo cual, desde la consola y como 
root, entraremos en la carpeta del proyecto y copiaremos el ejecutable con el nuevo 


nombre (por supuesto, si lo preferimos, podemos hacerlo con Konqueror o Nautilus): 
cp ColorLabel.gambas /usr/lib/gambas2/gb.controles.gambas 


Los componentes en Gambas necesitan también de un archivo con extensión .com- 
ponent para ser reconocidos como tales, Vamos a crear este archivo a mano con cual- 
quier editor. Nosotros vamos a usar gedit, pero puede ser cualquiera (recordemos 


que debemos ser root): 
gedit /usr/lib/gambas2/gb.controles.component 


El contenido de dicho fichero incluye varios parámetros que se exponen a conti- 


nuación: 


[ Component ] 
Key=ab.controles 
Name=Additional controls 
Author=Daniel Campos 
Group=Adicionales 
Controls=ColorLabel 

| Require=gb.qt 


A clave [Component] siempre debe estar al inicio del archivo. En el valor Key hay 
jue situar el nombre del componente sin extensión (en este caso, el fichero gb.com- 


nent gambas que hemos copiado, pero sin la extensión gambas). En la clave Name 
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se indica el nombre del componente que aparecerá luego como descripción a la hora 
de elegir los componentes de un proyecto. En Author situamos el nombre del autor 


del componente. 


Después vienen una serie de claves opcionales: Group sólo se usa si queremos aña- 
dir controles gráficos y supone la pestaña de controles donde queremos que se añada 
el nuevo. Lo mismo se aplica para Controls, que se referirá a cada uno de los con- 
troles que queremos que aparezcan en dicha pestaña. Require se utiliza 51 nuestro 
componente depende de otros, en este caso, de gb.qt. Si hubiéramos compilado el 


proyecto para gb.gtk, tendría que ser ésa la dependencia indicada. 


Una vez creado y guardado el archivo gb.controles.component, tenemos finalmente que 
copiar dos archivos dentro de /usr/share/gambas2/info, que proporcionan información 


adicional para el intérprete de Gambas. 


Dentro de nuestra carpeta del proyecto se han creado también tras compilar, dos archi- 
vos llamados .list e .info. Si deseamos verlos, recordemos que los archivos que comien- 
zan por un punto son ocultos, por tanto, hemos de usar /5 -a desde la consola о bien 
activar la opción de ver archivos ocultos desde Konqueror o Nautilus. Dichos archivos 
han de copiarse a su ubicación definitiva con el nombre del componente (en este caso, 


gb.controles.info y gb.controles.list): 


cp .info /usr/share/gambas2/info/gb.controles.info 
ср .list /usr/share/gambas2/info/gb.controles.list 





200000 Probando el nuevo componente ! @мїргиеБа 
Tras estos pasos cerraremos el IDE de Gambas si estaba Classes 

| | | = 3 Forms 
abierto y lo ejecutaremos de nuevo, creando un proyec- 
to gráfico llamado MiPrueba en el que añadiremos un (Modules 

; -Data 
formulario. 
Figura 10. Formulario 

Dentro de Proyecto | Propiedades, seleccionaremos la FMain sobre el 


pestaña de Componentes. proyecto MiPrueba. 


Buscaremos y marcaremos el componente gb.controles y pulsaremos Aceptar para 


tenerlo como dependencia. 


Precio properes ПУЕТ 


Ф General | ES Properties BY Components | 8] Translation 


Show only components used in project 


[+] ab Gambas internal native classes 
gb.compress Compression library 


Additional controls 





MDS/DES crypting component 
Database access component 
Gambas application debugger helper 
O gb.eval Gambas expression evaluator 
0 дБ form Some controls 
Г] gb.gtk Graphical GTK+ toolkit component 
gb.controles 
Additional controls 


Authors: Daniel Campos 


Controls: ColorLabel 





Figura 11. Selección del componente gb.controles como 


dependencia, 


Ahora, en la ventana de selección de contro- 
les aparece una nueva pestaña Adicionales, 
tal y como habiamos indicado en el archivo 


component (Figura 12). 


Al situarnos en esta nueva pestaña, aparecen 
los controles disponibles. Desgraciadamente, 


en este momento no se contempla la posibi- 


Adicionales 


lidad de que esos controles tengan un icono 





Figura 12. Pestaña Adicionales de propio, por lo que aparecen sin un dibujo 


la ventana de selección. representativo (Figura 13). 
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A  ———— 
Adicionales 


No obstante, al situarnos sobre él con el ratón, 
se muestra el botón y el ToolTip indicándonos 


el nuevo control. 





Figura 13. Controles Adicionales. 


Como hacemos con el resto de controles, lo arrastraremos al formulario y lo situa- 


remos como deseemos. 





Figura 14. Control Colorlabell. 





Finalmente, en el código del formulario indicamos el texto y los colores de la eti- 


queta: 
PUBLIC SUB Form Ореп() 


ColorLabell.Font.Size = 16 

ColorLabell.Text = “Hola desde el componente” 
ColorLabell.Colorl = Color.Blue 
ColorLabell.Color2 = Color.Black 


Al ejecutarlo, observamos el resultado. Ya disponemos de un nuevo componente reu- 
tilizable en muchos proyectos y que se puede distribuir entre distintos equipos siguien- 


do los pasos indicados. 





Figura 15. Resultado del nuevo componente. 


Un componente escrito en Gambas es tan sólo un programa que exporta clases, por 
lanto, se puede depurar fácilmente haciendo las pruebas como en cualquier otro pro- 


yecto para, después, distribuirlo como componente. 
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| 
AN 


e > En realidad, el título Acceso a la API 

está tomado de los programadores de Visual 

Basic™, en los cuales es muy frecuente realizar llamadas 

a funciones externas, alojadas en librerías también externas escri- 

tas en lenguaje С. Tal vez, en este caso no sea correcto, dado que Linux 

es tan sólo un núcleo y el resto de librerías (incluyendo la estándar de C, elibc) 
no son propiamente la API de este sistema operativo, sino campos de utilidades 
que se añaden al sistema. Pero, de todas formas, sirve de introducción para el asun- 


to que vamos a tratar, 


Un sistema GNU/Linux puede contar con librerías distintas de otro, pero en la prác- 
tica siempre vamos a encontrar como mínimo la librería de С (glibc), posiblemen- 
te una librería para diseño de interfaces de texto (ncurses) y, si hay un sistema grá- 


fico instalado, las librerías de X-Window y otras como glib, gtk+, atk, etc. Al margen 
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de éstas, todo sistema suele tener instaladas librerías como libcurl, para acceso a diver- 


sos protocolos de red, o libaspell, para corrección ortográfica. 


Desde Gambas podemos sacar provecho de las funciones aportadas por estas libre- 
rías, declarando funciones externas e indicando la librería en la que se deben bus- 
саг. El programa aporta, además, ciertos elementos para la gestión de memoria y 
punteros. Las librerías accesibles serán aquellas escritas en lenguaje С, que sigan el 
estándar definido (ABI), o bien escritas en otros lenguajes si respetan dicho están- 
dar (por ejemplo, escritas con FreePascal). No es posible, en este momento, acceder 


a funciones de librerías escritas en C++, al menos de forma directa. 


Si bien en sistemas Windows™ es muy habitual recurrir a este modo de trabajo, hay 
que matizar que en Linux muchas tareas se pueden resolver simplemente llamando 
a procesos externos, labor más sencilla, por lo general, y menos problemática en la 
depuración de los programas. Por tanto, recurrir a la gestión de procesos cuando sea 


posible, en lugar de a este sistema, es, en general, una buena idea, 





Hay que tener en cuenta que la llamada a funciones externas, tanto desde Gambas 
como desde otros lenguajes interpretados (Mono, por ejemplo), requiere un traba- 
jo de conversión de tipos, entre otras tareas, lo cual consume un tiempo de proce- 
sador, Tratar, pues, de emplear llamadas a funciones con el fin de incrementar la 


velocidad del programa, puede no ser una buena idea en todos los casos. 


aean 9. | Declarar una función externa 


La declaración se debe realizar al principio de una clase o módulo, del mismo modo 
que las variables globales. Al principio se declarará la función como PUBLIC o PRI- 
VATE, para definir su ámbito, limitado a la clase donde se aloja o a todo el progra- 


ma, Por defecto son privadas. 


А continuación, la palabra clave EXTERN indica que vamos a declarar una función 


externa, seguida por su nombre, que será el nativo de la función en la libreria. 


Hay que tener en cuenta que C sí distingue entre mayúsculas y minúsculas y, por 
tanto, tratar de declarar Printf en lugar de printf para la librería glibc, dará como 


resultado un error, 


Como en el resto de funciones de Gambas, se indicarán los parámetros que reciben 
entre paréntesis, y después el tipo de dato devuelto. Opcionalmente, se puede indi- 
car al final la librería en que se encuentra la función, así como un alias, o nombre 
alternativo, a utilizar desde este programa, para llamar a la función, que se emplea- 
rá, por ejemplo, en ciertas funciones cuyo nombre coincide con palabras clave del 
lenguaje Gambas. Supongamos la función stremp de la librería estándar de С, que 


se define en este lenguaje como: 
int strcmp(const char *51, const char *52); 
La declaración en Gambas será: 


EXTERN strcmp(sl AS STRING,s2 AS STRING) AS INTEGER IN 
“libc:6" 


00000 Cómo denominar la librería 

Tras la palabra clave IN, se presenta entre comillas el nombre de la librería. En prin- 
cipio, se puede indicar un nombre simple, como libe o libgstreamer. En ese caso, 
Gambas tratará de encontrar la versión más moderna instalada en el sistema. А veces, 
sin embargo, puede interesarnos una versión concreta de una librería, en cuyo caso 
se reflejará indicando el símbolo : tras el nombre y, a continuación, el número de 


versión, por ejemplo libgl:1.0,7667 o libc:6, 


En sistemas GNU/Linux, dentro de las carpetas /lib o /usr/lib encontraremos la mayo- 
ría de las librerías que hay en nuestro sistema. А partir de esos nombres de archivo, 


podemos deducir el nombre de la librería, por ejemplo: 


/usr/lib/libglib-2.0.s0o.0.600.4 =>  "libglib- 
2.0:0.600.4" 
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Como podemos observar, el número de versión es siempre la serie de números que 
se encuentra tras el texto .so. en el nombre de archivo, y que todo lo que viene antes 
forma parte del nombre de la librería. En este caso, el valor 2.0 tras el texto libglib- 
es parte del nombre y no de la versión. Especificar un número de versión puede ser 
problemático cuando se trata de instalar un programa entre diferentes equipos con 
distintas distribuciones GNU/Linux instaladas, que pueden tener versiones ligera- 
mente diferentes de estas librerías o cambiar tras una actualización del sistema. 
Por tanto, hay que aplicar esta característica sólo en casos imprescindibles, o tal vez 


emplear el número mayor y dejar el menor y la revisión a elección de Gambas. 


Si en un módulo o clase se han de definir varias funciones de una misma librería, no 
es necesario especificarla en todas las declaraciones, basta con indicarla como libre- 
ría por defecto con la palabra clave LIBRARY y Gambas la empleará en todas las 


declaraciones en las cuales no se especifique la librería. 


LIBRARY “libglib-2.0" 


EXTERN g utf8 strlen(p AS String, Mx AS Integer) AS 
Integer 
EXTERN g_utf8 strup(Buf AS String, Мх AS Integer) AS 
Pointer 


EXTERN getchar() AS Integer IN “libc:6" 


Aquí, las dos primeras funciones pertenecen a libglib, y la tercera a libc. 


00000 El uso de los alias 

Supongamos la función free() de la librería estándar de С, que se emplea para libe- 
rar memoria asignada, por ejemplo, con malloc(). El problema para declararla en 
Gambas es que ya existe Free como palabra clave reservada, por tanto, tendremos 


que indicar un nombre alternativo: 


EXTERN FreePointer(Ptr AS Pointer) IN “libc:6" EXEC 


"free" 


A la hora de escribir código Gambas, llamaremos siempre a la función FreePointer, 


que internamente llamará a la original free de la librería de C. 


Tipos de datos 
Existe una correspondencia entre los tipos de datos básicos de Gambas y los de С. Hay 
que tener cuidado con los falsos amigos, un tipo long de C, no es un tipo Long de Gambas, 
sino un tipo Integer; y un tipo float de С no es el Float de Gambas, sino el Single, Las 


siguientes correspondencias son aplicables a Gambas sobre GNU/Linux 32 bits/Intel. 


CORRESPONDENCIA DE DATOS ENTRE С Y GAMBAS 


c Gambas c Gambas 
char Byte long long long 
short Short foal Single 

int, long Integer double Float 


El tipo Pointer de Gambas se emplea para definir un puntero. En Gambas- 
GNU/Linux-32 bits es exactamente igual a Integer, pero en otras arquitecturas podria 
cambiar, por lo cual es recomendable utilizar siempre el tipo de dato Pointer en lugar 
de Integer para referirse a punteros. El tipo de datos String sólo debe emplearse si la 
cadena a pasar como parámetro no va a ser modificada o reasignada por la función 
de С, en otro caso debe utilizarse un dato tipo Pointer. Por último indicar que es 


posible pasar datos tipo Object, pero no está permitido usar tipos Variant. 


зввв 9. e Funciones auxiliares 
Gambas aporta algunas utilidades para trabajar con llamadas a funciones. 


Puntero = Alloc ( Tamaño AS Integer [ , Cantidad AS 
Integer | ) 
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La función Alloc es similar a la homónima de С: reserva un bloque de 
Tamaño*Cantidad bytes. En este caso, el intérprete de Gambas lleva, además, un con- 
tador de las asignaciones y liberaciones de memoria realizadas, indicando, con un 


mensaje de advertencia al final del programa, si quedó memoria sin liberar. 


Nuevo Puntero = Realloc ( Antiguo puntero AS Pointer , 


Tamaño AS Integer , Cantidad AS Integer ) 


Realloc toma un puntero, previamente asignado con Alloc o Realloc, y cambia su 
tamaño, manteniendo los datos almacenados; devuelve un puntero a la nueva área 
de memoria reasignada; y, al igual que Alloc, mantiene la cuenta de asignaciones/libe- 


raciones de memoria. 


Free ( Puntero ) 


Free libera un puntero asignado con Alloc o Realloc, de igual modo que la función 


homónima de С, pero manteniendo la cuenta de asignaciones y liberaciones de 





memoria. 


Muchas librerías aportan sus funciones propias para asignar o liberar memoria. Puede 
ser necesario que empleemos estas funciones en lugar de Alloc o Free, si así lo requie- 


re el programa, para mantener la coherencia del código y funcionalidad de la librería. 
Cadena = StrPtr ( puntero AS Pointer ) 
Cuando una cadena ha de tratarse como un puntero, esta función nos permite obte- 
ner una copia como tipo de dato String, siempre y cuando puntero apunte a una 


cadena terminada en carácter 10 (nulo), que es lo habitual cuando se trabaja con С. 


Gambas permite escribir y leer en memoria como si fuese otro flujo cualquiera. 


Así, utilizando un puntero como parámetro, se pueden utilizar las instrucciones 


habituales en archivos: READ, WRITE, etc. Entre otras posibilidades ofrecidas рог 
esta solución, éste es el modo actual en el que el programador puede acceder a los 


datos de una estructura de С. 
Está previsto que la versión 2 de Gambas añada el componente gb. api, 


Este componente se está desarrollando para dar soporte directo al trabajo con estruc- 
turas de datos y a retrollamadas, que aumentarán y simplificarán las capacidades de 


Gambas para manejar librerías externas. 


cunas ©. З Un ejemplo con libaspell 


Aspell proporciona una API para corrección de texto, permite analizar palabras, indi- 
car si son válidas o no según el diccionario empleado, y ofrecer palabras alternati- 


vas a las consideradas incorrectas, entre otras capacidades. 


Disponemos de más información sobre libaspell en su página oficial: 


http://aspell.sourceforge.net/ 


Para poder utilizar este código, tendremos que instalar Aspell en el sistema, así como 


el diccionario de nuestro idioma. 


Por ejemplo, en un sistema gnuLinex 2004 en castellano (basado en Debian), los 


paquetes instalados en el sistema son: 


aspell 
aspell-bin 
libaspell-dev 
aspell-es 
libaspell15 
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Crearemos un nuevo proyecto gráfico llamado Aspell, | b- 
[тил here 

con un único formulario FMain en el cual se сопїеп- ШЕ —-— — 
| ГЕ! | лы, 


drá un botón llamado BtnCheck, un TextBox llama- [Г 


do Тхїїп, un ListBox llamado Lista y un ProgressBar 
llamado Pbar. 


Al inicio del código del formulario definimos las fun- 


ciones de libaspell. 





Figura 1. Formulario del 


LIBRARY “libaspell” proyecto Aspell. 


EXTERN new _aspell _config() AS Pointer 

EXTERN aspell config гер1асе(С#д AS Pointer, Var AS 
String, Value AS String) 

EXTERN new аѕре11 speller(Cfg AS Pointer) AS Pointer 
EXTERN aspell error number(Err AS Pointer) AS Integer 


EXTERN aspell error message(Err AS Pointer) AS 





Pointer 

EXTERN to aspell speller(Err AS Pointer) AS Pointer 
EXTERN aspell ѕре11ег check(Vl1 AS Pointer, V2 AS 
String, V3 AS Integer) AS Integer 





aspell speller suggest(Vl1 AS Pointer, V2 AS 
String, УЗ AS Integer) AS Pointer 

EXTERN aspell word list elements(Vl AS Pointer) AS 
Pointer 

EXTERN aspell string enumeration next(Ptr AS Pointer) 
AS Pointer 

EXTERN delete aspell string enumeration(Ptr AS 
Pointer) 


EXTERN delete аѕре11 config(Cfg AS Pointer) 


Al pulsar el botón BtnCheck, realizaremos el proceso de análisis del texto introdu- 


cido en el cuadro TxtIn, para ir mostrando el resultado en la lista. 


PUBLIC SUB BtnCheck Click() 


DIM spell config AS Pointer 
DIM possible err AS Pointer 
DIM spell checker AS Pointer 
DIM suggestions AS Pointer 
DIM elements AS Pointer 


DIM MyStr AS String[|] 
DIM Bucle AS Integer 
DIM BufErr AS String 
DIM Sum AS Float 

DIM hPtr AS Pointer 
DIM sPtr AS String 


En primer lugar, dividimos el texto introducido por el usuario en palabras, separa- 


das por espacios. 


PBar.Value = O 

Lista.Clear() 

MyStr = Split(TxtIn.Text, “ “) 
Sum = 1 / MyStr.Count 


Realizamos las primeras llamadas a la librería libaspell. Para ello tomamos una con- 
figuración por defecto y aplicamos dos atributos: el texto estará codificado como 


UTF-8 y se usará el diccionario que corresponda con el lenguaje del sistema. 


Aplicamos la configuración y, de existir un error (por ejemplo, que el diccionario 


no se encuentre disponible), indicamos el mensaje correspondiente: 


spell config = new_aspell config() 
aspell config replace(spell config, “lang”, 
Application.Envy[“LANG"]) 
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aspell config replace(spell config, “encoding”, 
“utf-8"”) 


possible err = пем аѕре11 _speller(spell config) 


IF aspell error _number(possible err) <> 0 THEN 
Message.Error(StrPtr(aspell error message 
(possible err))) 

RETURN 

ELSE 
spell checker = to aspell speller(possible err) 

END IF 


Después entramos en un bucle en el cual se analiza, palabra por palabra, el texto 
introducido. En caso de error, se dará una lista de sugerencias, pero si está todo correc- 


to, se indicará con un OK. 
FOR Bucle = 0 TO My5tr.Count ~ 1 


PBar.Value = PBar.Value + Sum 
MyStr[Bucle] = Trim(MyStr[Bucle]) 
IF Len(MyStr[Bucle]) > O THEN 
IF aspell speller check(spell checker, 
MyStr[Bucle], - 1) THEN 
lista.Add (“OK -> “ E MyStr[Bucle]) 
ELSE 


BufErr = “ ( * 

suggestions = aspell speller suggest 
(spell checker, MyStr[Bucle], = 1) 
elements = aspell word list elements 


(suggestions) 


DO WHILE TRUE 
hPtr = aspell string enumeration_ next (elements) 
IF hPtr = 0 THEN 
BREAK 
ELSE 
sPtr = “" 
INPUT #hPtr, sPtr 
BufErr = BufErr & sPtr £ ~ ” 
END IF 


LOOP 


delete aspell string enumeration(elements) 


BufErr = BufErr & “у” 


lista.Add(“ERROR -> “ £ MyStr[Bucle] & BufErr) 
END IF 
END ТЕ 
WAIT 0.001 
NEXT 


Finalmente liberamos los elementos necesarios empleados en la corrección de texto. 


delete aspell config(spell config) 
PBar.Value = 1 


аш шш 9, 4 Obtener información acerca de la librería 


Normalmente, las librerías aportan multitud de constantes y macros definidas en sus 


ficheros de cabecera. A la hora de trabajar con ellas debemos conocer sus valores, ya 
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que no se puede recurrir directamente а los 4include de С. Veamos este ejemplo, que 
utiliza la constante GTK_WINDOW_TOPLEVEL: 


include <gtk/gtk.h> 


int main(void) 


1 
GtkWindow *win; 
gtk_init(0,0); 
win=gtk window _new(GTK_WINDOW_TOPLEVEL); 
gtk widget show а11 (уіп); 
gtk_main(); 
} 


Соп el fin de conocer el valor de esta constante, o cualquier otra aportada por una 


librería, podemos recurrir al menos a cuatro métodos: 


1. Consultar la documentación de la propia librería, que en este caso (GTK+), 
es bastante completa. La podemos encontrar en la siguiente dirección: 
http://developer.gnome.org/doc/AP1/2.0/gtk/gtk-Standard-Enumerations. 
html*GtkWindowType. 


2. Indicar que GTK_WINDOW_TOPLEVEL tiene el valor 0 como parte de la 
enumeración GtkWindowType. 


3. Buscar en los ficheros de cabecera de la librería, que se suelen depositar a par- 
tir de la ruta /usr/include. En el caso que tratamos en el ejemplo, este valor se 


encuentra en el fichero /usr/include/gtk-2.0/gtk/gtkenums.h. 


4. Compilar un pequeño programa en С que muestre el valor problemático que 


no alcanzamos a averiguar por otros sistemas. 


tinclude <gtk/gtk.h> 


#іпс1џде <stdio.h> 
void main(void) 


{ 
printf(“5din”,GTK_WINDOW_TOPLEVEL); 


Podemos ya pasar el pequeño programa a Gambas. Para ello, creamos un programa 
de consola con un solo módulo modMain que contenga este código: 


' Gambas module file 
LIBRARY “libgtk-x11-2.0" 


CONST GTK_WINDOW_TOPLEVEL AS Integer = O 


EXTERN gtk_init(Argv AS Pointer, Argc AS Pointer) 





EXTERN gtk_main() 
EXTERN дік window new(wType AS Pointer) AS Pointer 
EXTERN gtk widget _show(wid AS Pointer) 
PUBLIC SUB Main() 
DIM Win AS Pointer 


gtk_init(0, 0) 


Win = gtk_window_new(GTK_WINDOW_TOPLEVEL) 
gtk _widget_show(Win) 


gtk main() 


PE 
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Silo ejecutamos podemos observar que el resultado es equivalente al del progra- 


ma en С. 


sun Ө. 5 Resumen 


En este momento, Gambas autoriza el acceso a funciones de librerías externas. 
La única condición es que sigan el ABI estándar, Las propias instrucciones del pro- 
grama permiten reservar y liberar memoria. En el futuro, a través de gb.api (no deta- 
llado aquí, pues se encuentra en pleno desarrollo y su interfaz puede cambiar), la 


gestión de estructuras y retrollamadas será posible. 


Pero no se recomienda el uso de esta funcionalidad, salvo que esté plenamente jus- 
tificado. Gambas aporta componentes para tareas variadas que cubren buena parte 
de las necesidades que se encuentran en los programas habituales, y su capacidad de 
gestión de procesos externos lo hace apropiado para casi cualquier tarea. Trabajar 
con llamadas a funciones externas puede hacer el programa más difícil de depurar, 
sensible a los cambios en el sistema (actualizaciones de librerías, cambio de versión 
de la distribución...) y limita la portabilidad del código (por ejemplo, de un sisterna 
GNU/Linux, donde se desarrolla, a una plataforma FreeBSD o, en el futuro, en la 


versión Windows de Gambas). 
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Gracias a Gambas, el programador involucrado en el Software 
Libre, bien sea por su contribución a la comunidad o por sus 
necesidades profesionales, dispone ahora de un entorno de 
desarrollo que conjuga la sencillez y potencia necesarias para 
ejecutar aplicaciones complejas y bien estructuradas en un 
tiempo record. 


Gambas permite realizar todo tipo de aplicaciones 
profesionales, desde CGlIs a complejas interfaces gráficas, 
las cuales no están atadas a una librería concreta (QT o 
GTK+), sino que pueden ser compiladas para funcionar 
indistintamente con ambas librerías sin tocar una sola línea 
de código. 


Todos los programadores provenientes de entornos Windows'" 
encontrarán una herramienta en la que sentirse cómodos: 
un entorno RAD, un intérprete de BASIC Visual, depuración 
de programas paso a paso, sistema de ayuda integrado, 
creación de paquetes de distribución, soporte nativo de 
aplicaciones multi-idioma...y los programadores acostumbrados 
a explotar los conceptos modernos de programación hallarán 
la posibilidad de utilizar clases, objetos, herencia y otras 
características con una sencillez nunca antes vista en una 
herramienta libre. 


Los analistas encontrarán, igualmente, una herramienta 
alternativa para ofrecer soluciones rápidas a los clientes 
especificos que ya trabajan con Software Libre, gracias a sus 
ventajas de estabilidad y economía a través de esta 
herramienta. 


Los administradores de sistemas tienen ahora la posibilidad de 
crear scripts de administración con un lenguaje más potente 
y flexible que la shell Bash. 
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